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Foreword 


LOGO is an exciting graphics-based language that is built from easy-to-use, 
English-like words. You can begin programming in LOGO as soon as its 
greeting appears on the Atari ST's screen. You order simple activities to be 
performed with a few vocabulary words, and thereby define a new LOGO 
word. This is how simple it is to expand the vocabulary of LOGO. You will 
soon discover that even complex computer tasks are soon mastered with 
LOGO. 

LOGO programs usually consist of just a few lines. Comprehensive 
problem solutions are constructed out of small units, called procedures. 
These procedures are formulated for a very specific task. The structure of a 
LOGO program actually mirrors the logical construction of a problem 
solution. 

The LOGO programming language is famous for its turtle graphics, which 
create graphic effects with commands given to a pen. This graphic method 
has now been incorporated into other programming languages. On the other 
hand, newer versions of LOGO are also equipped for coordinate graphics. 
The ST LOGO implementation has a broad spectrum of commands for both 
graphic methods. 

Atari ST LOGO also offers additional graphic capabilities for fi llin g surfaces 
with various patterns, and for altering the appearance of lines and 
characters. ST LOGO also lets you make a printer hardcopy of the screen 
display simply by pressing a key. 

Each Atari ST sold, includes the programming languages LOGO and 
BASIC. More and more purchasers of microcomputers are buying their 
computers to use ready-to-run software packages for such tasks as 
wordprocessing and spreadsheets. Many of you are not terribly interested in 
programming your ST's in low-level languages like the computer hackers. 
However, the GEM system and user-friendly mouse of the Atari ST offers 
you a comfortable environment for experimenting with computer 
programming. The interactive, problem-oriented LOGO programming 
language is a perfect complement to the system environment of the Atari ST. 

Because it's so simple to start programming in LOGO, it's an ideal language 
for those who only want to get a glimpse of computer programming 
possibilities, those who mainly use applications programs. But the 
capabilities of LOGO are so many-faceted that you can quickly find yourself 
programming complex tasks you would never have dreamed of doing. 


m 


Development of LOGO for microcomputer systems really got started after 
1980. However, six years later, there is still no universally recognized 
LOGO standard. On one hand, this is another frustrating compatibility 
problem so common to modem computing. But on the positive side, the 
situation also has made rapid extensions of LOGO possible. 

At the present, there are essentially two families of LOGO on 
microcomputers. 

The first family, which includes Atari ST LOGO, was developed by Digital 
Research (DR). ST LOGO differs from Digital's other LOGO versions for 
other computers only in its scope of and its individual device-specific (i.e. 
ST) elements. 

Sections of this book are also applicable to related LOGO versions for the 
IBM PC, as well as the Apple (LCSI) variants for the Apple n. This LOGO 
family can be recognized by three of its unique capabilities: property lists, 
packages, and programmed error exits. The LOGO words PPROP, 
package, and CATCH indicate these three LOGO features. 

The second LOGO family is usually referred to as MTT LOGO. This LOGO 
is available for the Commodore 64 and the IWT LOGO versions for the 
Apple II. This LOGO family does not differ in the fundamental commands 
from the DR LOGO. The scope of the language is clearly smaller, though 
the version is implemented very efficiently as a result. This book is less well 
suited for this second LOGO family. 

This book is intended to teach LOGO programming step-by-step, and is 
divided into 18 lessons, one per chapter. The most important language 
elements are introduced in the first twelve chapters through simple 
examples. The last six lessons explain advanced LOGO applications with 
more comprehensive examples. We assume that you have no previous 
programming knowledge in the initial lessons. More advanced readers will 
find these first chapters a quick and simple method for reviewing the 
fundamentals of programming. 

Because of the excellent graphic capabilities of the ST, as well as the 
comprehensive set of graphics commands, graphic applications form the 
majority of the introduction to LOGO. We'll look at elementary programs 
for turtle graphics, then progress to more demanding examples such as 
three-dimensional graphics and a graphics program generator. 


We'll then examine applications for list processing and higher-order data 
structures. Finally, we'll look at the many possibilities for LOGO file 
management 

To make the overview of each chapter easier, each chapter begins with a list 
of the languages elements that are introduced in the following pages. Also 
listed are all of the program examples discussed in the text. And at the end 
of most of the lessons you'll find practice problems. 


Gerhard Sauer 
Linden, W. Germany 
January 1986 
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LOGO under GEM 


Working with LOGO is a theatrical play with many scenes. The director in 
the background is GEM (Graphics Environment Manager), the 
graphic-oriented operating system of your computer. Before we begin the 
rehearsals, we first want to take a look at the major stages and the leading 
actors. 


1.1 Loading and starting LOGO 


The TOS operating system (including GEM), as well as the LOGO 
language, is included with every Atari ST on a system diskette. Before we 
can do anything with the ST, TOS must be loaded from this diskette. If this 
system diskette is in the drive when the computer is turned on, TOS is 
"booted" automatically. Otherwise you are requested to insert the system 
diskette. To start the loading, simply press the <Retum> key. When the 
status light on the drive turns off after the loading, remove the TOS diskette 
from the drive. The screen should look like this: 


Desk File View Options 
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To load LOGO, simply remove the system diskette from your disk drive 
and insert the LOGO language diskette. If you have two disk drives, insert 
the LOGO diskette into drive B. 

You are probably already familiar with using the mouse to enter information 
into the ST. Move the mouse pointer to the symbol for drive A (visible in 
the upper left comer of the screen) and activate the drive by double-clicking 
its symbol. The mouse pointer assumes the shape of a bee while the diskette 
is being accessed. 

When the diskette's contents are loaded, the curtain is raised and the stage 
becomes visible. In computer terms this is called opening a window. The 
window displays the contents of the diskette, usually displayed as symbols 
called icons. 


Desk File Vie* Options 



To load the LOGO system, move the mouse pointer to the icon labeled 
LOGO. PRG and start it by double-clicking the icon. LOGO. PRG should 
appear at the top of the screen. 
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Two windows are visible after loading. The left window is titled LOGO 
dialogue. The right is called graphics display. At the upper left 
LOGO announces itself: DR LOGO FOR GEM! 


Desk File Run Edit Settings 
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I GRAPHICS DISPLAY 
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1.2 How the windows work 


The screen is divided into independent areas by windows. You work mostly 
with the two windows visible when the program is loaded: LOGO 
DIALOGUE and GRAPHICS DISPLAY. Two screen areas corresponding 
to these are available in all versions of LOGO. They are usually called the 
text screen and graphics screen. 

There may be another window open, and possibly more often than you 
would like: the ERROR WINDOW. If you press the key for the letter A and 
then press the <Retum>, an error message box with a stop sign and the title 
LOGO error opens in the center of the screen. This box displays the error 
message: 



At the bottom of the error message box a small button labeled OK is 
displayed. You may push the OK button with the mouse, or simply press the 
<Retum> key. Move the mouse pointer to OK and click it once (with the left 
button), The dialogue box should disappear. 

Incidentally, the <Enter> key in the numerical keypad has the same effect as 
the <Retum> key. Try these keys out—the error window can be easily 
opened again. Using the <Retum> or <Enter> key is often easier than using 
the mouse. 

If other dialogue boxes have opened (including other types of these boxes 
like CANCEL or EDIT), the other windows are "frozen". Nothing more can 
happen in the LOGO DIALOGUE or GRAPHICS DISPLAY windows until 
you have exited the dialogue box. This is an important characteristic of 
windows under GEM. A message is placed over the existing screen and 
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taken away again. As long as the dialogue box or warning message is open, 
the contents of the window underneath are covered, but not destroyed! 

The screen of the monitor is a flat, two-dimensional device. The GEM 
system recognizes a third dimension in the construction of a screen, 
however. The error message, in reference to the viewer, is placed in front of 
the other two windows and partially covers them. 

This technique can be clarified as follows. The windows are pictures of 
different size and with different meanings, and are displayed in space as 
though they were staggered. They cannot intersect or overwrite each other 
with this method. The screen functions much like a transparent canvas. The 
spatially staggered graphics are projected so that those graphics closer to the 
foreground completely or partially cover those toward die back. 

When windows are opened or closed, it works something like shifting 
scenes in a theater stage. A viewer notices the third dimension only through 
the superimposed windows. 

At the top of the screen you find the menu bar. When the mouse pointer 
moves into one of the displayed fields, a window opens and offers a 
selection of options. To choose a menu option, the corresponding field must 
be clicked with the mouse pointer. We'll go into these menu options later 
when they can be used in context. 
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1.3 Controlling windows 


Take a look at the windows LOGO DIALOGUE and GRAPHICS 
display. These windows have a border at the top, bottom, and right. One 
window has a border that's dotted and displays some symbols. This is the 
currently active window. You activate a window by simply moving the 
mouse pointer into the desired window and clicking. If you select the 
GRAPHICS DISPLAY window, the symbols and dots disappear from the 
LOGO DIALOGUE window and now appear on the border of GRAPHICS 
DISPLAY. 

Initially the DIALOGUE and GRAPHICS windows lie next to each other 
without overlapping. These and other windows can also be moved in front 
of and behind each other so that sections are covered. If you activate a file 
by clicking it, its window is automatically brought to the foreground. 

Desk File Run Edit Settings 



Controlling the window 
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The symbol in the lower right comer is called the V-shifter. You can use it 
to change the size of the window with the mouse. 

To change the size of this border, move the mouse pointer to the lower right 
comer. Now press the left button and hold it down. You can change the size 
of the border by moving the mouse in the appropriate direction, as in the 
figure below: 


GRAPHICS DISPLAY 


A 


Of course, the size of the entire screen sets the limits for individual 
windows. You'll also discover that the system does not allow windows to 
be made arbitrarily small. 

If you click the symbol in the upper right comer, the selected window is 
enlarged to its maximum size on the screen. This affects only the border; the 
picture itself does not change. If possible, more of the window’s contents 
will become visible, but if it is smaller than the frame, the background 
remains empty. Clicking the upper right comer again restores the original 
window size. 

Clicking the symbol in the upper left corner causes the window to 
disappear. If the closed window had previously covered another window, 
the covered window is now become visible. For example, the LOGO 
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DIALOGUE window often covers part or all of the GRAPH ICS DISPLAY 
window. If no window was covered, the grey background of the monitor 
appears. 

The window can be moved as a unit over the entire screen. To do this, point 
to the title line of the window, hold the mouse button down. The window 
now moves with the mouse. Windows can be moved beyond the lower and 
right edges of the screen, but not past the left and upper edges. 

The remainder of this section discusses the function of the square and arrow 
symbols in the border of the window. 

When working in LOGO, you often write more text than the window has 
room for. The contents of the text window are scrolled up to make room at 
the bottom. At the right edge of the window, a small square moves down. 
Horizontal scrolling can also be performed at the bottom edge of a window, 
if this window is not at its maximum width. The small square at the bottom 
of the window moves to indicate the relative position of the visible text. 

If you have reduced the borders as described above, you may see only a 
small portion of the actual text screen. Moving the small square at the right 
edge of the screen up and down with the mouse (button held down) lets you 
view the entire text. This can also be done in increments by clicking the 
arrow symbols at the right edge. 

Correspondingly, the border can also be moved horizontally over the actual 
text screen. For example, you can use the entire width of the screen for text, 
or partially cover the text to display the graphics window simultaneously. 

This description of how the windows work has little to do with the LOGO 
language itself. However, the technique is typical for the GEM graphic 
operating system. Other windows are handled in similar manner with 
corresponding symbols. For example, windows that display the contents of 
diskettes behave exactly like the LOGO DIALOGUE window. 


10 



Chapter 2 


C 


Calculating with LOGO 


j 
























































Abacus Software 


ST LOGO User's Guide 


Calculating with LOGO 


New language elements: 

*r / r +, - r Space, MAKE, Names, Procedure names, SQRT, 

SIN, COS, TAN, ARCTAN, ROUND, INT, SUM, PRODUCT, 
QUOTIENT, REMAINDER, ABS, DEGREES, RADIANS, EXP, 

LOG, LOG10, PI, Editing in LOGO 

When you start DR LOGO on your ST, the two windows LOGO 
DIALOGUE and GRAPHICS DISPLAY automatically open. As its name 
indicates, the LOGO DIALOGUE window contains the dialog between the 
user and the LOGO system. Something is usually happening in this 
window, even when graphics applications take the foreground. For now we 
will ignore the GRAPHICS DISPLAY window. Enlarge the LOGO 
DIALOGUE window to cover the entire screen by clicking the upper right 
comer of the window. 
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2.1 First calculations 


The computer's ability to perform computations is what gave it its name. 
Today, calculating is only one of the computer's many uses. These days, 
calculations in the office or around home are almost always done with the 
aid of a pocket calculator. Calculators are nothing more than tiny computers 
constructed for this special purpose—dedicated micro systems, as it were. 

Microcomputers like your Atari ST or other personal computers are not 
simple, easy-to-use pocket calculators, of course. Their advantage lies in the 
broad spectrum of their possible applications. First we'll see what your 
micro under LOGO has to offer. If you have any doubt about the validity of 
your findings, you can pull out your calculator to check the answers. 

Enter a simple calculation, such as this: 

3*5 

The characters you type appear on the screen. The task has now been 
formulated and the computer can start processing it as soon as you instruct it 
to do so—by pressing the <Retum> key, instead of a calculator's = key. 
LOGO answers in the next line with: 

15 

(Answer: 15) 

You can figure out the answer to 3*5 in your head faster than this, but you 
couldn't with a problem like this: 

723+3*(27+28*(411+198)-2*78) 

Or would you have gotten the answer 514 92 in your head just as fast? 

In a math book, the problem would probably look like this: 

723+3(27+28(411+198)-2*78) 
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But all calculation operators must be specified explicitly for a computer. If 
even the first multiplication sign before the parenthesis is left off, LOGO 
displays this: 


726 

16923 

The computer first performed the addition 723+3. Since no operation 
character followed, the calculation was finished and the result displayed. 
The remainder of the line yields a valid computation which is evaluated 
separately and the result of this calculation appears in the dialog window. 

If the second multiplication sign is also missing, the error box opens in the 
middle of the screen with the following message: 



LQOQ ERROR! 


I don't know what to do Hit! 


h ( 


mo 

-n— .. '1 


The parenthetical expression cannot be processed without an operator. Since 
the remainder of the line is designated as one problem by the outer 
parentheses, 27+28 cannot be viewed as a valid partial task, resulting in 
the error message. 

When the error box is open, you must first give your OK in order to 
continue. You can do this simply by pressing <Retum>. 

Forgetting multiplication signs is only one of the many errors you can make 
when typing in programs, even if you're an experienced user. When you 
make a mistake with a pocket calculator, you usually have to start the 
calculation all over again—assuming you notice your error in the first place. 
You can correct the input on your microcomputer as long as you have not 
pressed the <Retum> key yet. 
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The first thing that appears on the screen is the input line, i.e. the line to be 
entered with die statement of the task. This line is available to you as a sort 
of scratch pad, since LOGO doesn't accept the contents of this line until you 
press <Retum>. 

Most calculations fit in one line, since your Atari ST has an 80-column 
screen. However, the usable LOGO screen area is a bit narrower because of 
the borders of the window and the question mark at the beginning of the 
line. If the input reaches the rightmost border, it will automatically be 
continued on the next line. A continued line is indicated by a question mark 
on the right. As a result, the calculations may be much longer than 80 
characters. 

When we talk about a text window line or a screen line, we mean the line 
actually available on the text screen. If the window does not have the 
maximum width, then only part of the line will be visible in the window. 
You can find out the maximum length yourself through experimentation. 
The ST will stop the input and beep when it can no longer accept any more 
characters. 

When LOGO has completed performing a calculation, the calculation is still 
available in the computer. That's because it was placed in a buffer. The 
contents of this buffer can be executed directly. Move the mouse pointer to 
the menu bar at the top of the screen to the option Run. A window opens 
and offers the activity Run Buffer. After clicking Run Buffer, the 
previous computation is performed again. This isn't particularly useful for 
computations, but there are commands or sequences of commands that can 
be very interesting when repeated many times. 

The use of the buffer is more important for other inputs. Here the 
<Control>Y key combination is be used. The dialog window displays (in 
the current line) the contents of the last line entered. This can be used simply 
to repeat the command. The <Control>Y key combination can also be used 
to append the buffer contents to the current line. The line then can be 
continued after <Control>Y. In addition, you can repeat <Control>Y. 

The <Control>Y combination is one of the many editor functions available 
in LOGO. The <Control> key is a key similar to the shift keys used to 
change between upper- and lowercase characters. <Control> changes the 
meaning of the keys used in conjunction with it. Like all such keys, 
<Control> must be held down while the other key is pressed 
simultaneously. 
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2.2 Editing the input line 


LOGO offers a number of editor functions for altering the input line. The 
actual number of functions the editor offers differs, depending on the 
different LOGO versions. The method of accessing the functions are also 
different. This book describes only the editor of DR LOGO for the Atari 
ST. 

Cursor movements 

The cursor indicates where the next character appears on the screen. The 
cursor can be moved with the cursor control keys, marked with arrows and 
located in a small block next to the main keyboard. 

When you edit input lines, you normally work with only one line at a time. 
You'll primarily use only the keys for cursor movements to the right and 
left. Cursor movements are possible only in the screen area already filled 
with characters. 

LOGO offers you two additional cursor movements: 

<Control>A Sets the cursor to the start of the screen line where it 
is currently located. 

<Control>E Sets the cursor to the end of the current screen line. 

Note that the cursor movements refer to the screen construction, not to 
continuous connected program lines. 

Inserting characters 

To insert the.missing multiplication sign in the character sequence "3 (", 
place the cursor on the parenthesis and type the multiplication sign *. The 
parenthesis and quotation mark are automatically moved to the right. LOGO 
automatically inserts all the characters you type in at the cursor position. 
Existing characters are not overwritten. 

Four blank spaces can be inserted with the <Tab> key, though it is of little 
importance for input lines. The tabs are set at intervals of four characters 
(columns). The tab key advances the cursor to the next tab position. No 
characters are skipped, but the corresponding number of spaces are 
inserted, and any characters following are shifted to the right. 
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Deleting characters 

t 

There are several options for deleting characters in LOGO: 

<Backspace> Deletes the character to the left of the cursor. At the 
same time it shifts the remainder of the input line 
(from the cursor on) one position to the left. 
Repeatedly pressing the backspace key moves the 
section of the line beginning with the cursor to the 
left, step by step. 

<Delete> Functions like <Backspace>. 

<Control>D Deletes the character under the cursor. The rest of 
the line is moved left by one position. Repeated 
execution deletes the part of the input line starting at 
the cursor. 


If you want to erase part of the line, you must place 
the cursor behind the last character when using 
Backspace, or on the first character of the part to be 
deleted when using <Control>D. 

<Control>K Deletes the entire remainder of the line starting with 
the cursor position (make sure you really want to 
delete everything to the right of the cursor before 
using this command!). An entire line will be deleted 
with <Control>A and <Control>K. 

<Control>K works on the entire logical line, in 
contrast to <Control>A and <Control>E. 


Correcting incorrect input lines 

When the error window opens as a result of an input line, you should first 
study the error message closely. Then press <Retum> and bring the line 
back to the dialog window with the key combination <Control>Y, which 
we discussed earlier. The editor functions above allow the line to be 
corrected without completely re-entering the line. 
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Computations in LOGO 

LOGO recognizes the four principle types of calculation: 


Computation Character Example 


Addition 

Subtraction 

Multiplication 

Division 


/ 


+ 


2.1 + 3.8 

7.2 - 5.5 
3.8 * 7 
10/3 


The following rule applies: 

Multiplication and division before addition and subtraction. 

Deviations from this rule must be indicated with parentheses. Fractions can 
be formulated with the help of parentheses. Example: 


(3.14*5*5+12)/(1.44 - 0.7) 


The denominator and numerator are enclosed in parentheses. 

But LOGO can also raise numbers to powers. Since the exponent must be 
written on the same line, an operation character is used. The Atari ST's 
character set uses the circumflex: 


2 A 10 


The result is the number 1024.000048. You pocket calculator will yield 
the exact result, namely the number 1024. Powers are computed with the 
aid of logarithms, which leads to inaccuracies. From this printed result you 
can see that LOGO is accurate only to 8 places—but 10 places were printed. 

You will encounter more such deviations when you look at numerical 
applications. It would be better if LOGO rounded off the number to the 
appropriate number of digits before printing the result 
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Infix and prefix notation 

In the customary notation of a basic calculation operation, the operation 
character stands between the two operands: 

3*5, 4-8, ... 

This is called infix notation. You're probably not familiar with prefix 
notation: 

* 3 5 or - 4 8 

The operation character is placed first, followed by the operands. DR 
LOGO allows both notations. But note: 

In prefix notation, operators and operands 
must be separated from each other by spaces. 

As you will discover later when you delve deeper into the rules of LOGO, 
prefix notation corresponds to the common construction of LOGO 
instructions. First you specify what task you want to accomplish. Then you 
formulate the additional specifications necessary for the task in question. 
The infix notation for calculation operations (and also for comparison 
operations) is a concession to the common notation of algebra. 

The prefix notation has the advantage that it can be used for more than two 
operands without confusion. Try this: 

(+ 1 2 3 4) 

The result is the number 10=1+2+3+4! The parentheses are necessary so 
that everything is viewed as a single computation. The parentheses are 
always used in this manner in LOGO when the number of inputs for an 
operation is varied. The entire task is set in parentheses if more or fewer 
than the standard number of operands follow. 

Operations such as subtraction, division, or raising to powers always have 
only two operands. 

Other computations like determining roots or rounding off numbers are not 
handled like basic computations in the programming languages. You will 
become acquainted with theses operations as functions. 
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2.3 Storing numbers 


All applications require certain numbers that are used repeatedly—i.e. 
constants. Tax rates are always needed for spreadsheets; scientists need 
values of natural constants for their work in advanced physical sciences; 
import/export brokers need to know the value of the dollar against foreign 
currencies, and so on. When numbers keep recurring in computations, you 
don't want to keep typing them in. Even the more advanced hand calculators 
have the ability to store constant numbers so that they can be called up 
immediately when they are needed. 

The LOGO instruction MAKE is used for this: 

MAKE "TAX 6/100 

The meaning of the line is clear: a tax of 6% is made available under the 
designation TAX. Instructions of this type are also called value assignments. 
BASIC programmers have the keyword LET for this purpose. 

Let's take a look at the syntax , or grammatical construction of the line. The 
line begins with the keyword MAKE followed by designation "TAX. Then 
come a quotient, slash and divisor, interpreted as the result of a division. 

Note that this group of three objects must be separated from each other with 
spaces! See what happens once if one of the two spaces is omitted: 

MAKE"TAX 14/100 

The error box opens and this message appears: 

I don't know how to MAKE"TAX" 


21 



Abacus Software 


ST LOGO User’s Guide 


From the message we can conclude that MAKE and "TAX without a 
separating space are viewed as a single expression. 

The tax can also be entered directly in the form 0.06: 

MAKE "TAX 0.06 

If the second space is now omitted: 

MAKE "TAX0.06 


LOGO reacts with the error message: 


1^1 

LOGO ERROR: 

Hot enough inputs to MAKE 


UK 


The character sequences "TAX and 0.14 are inputs for MAKE. The inputs 
required for a command are listed behind the call of the requested activity in 
the required order and number. The inputs must be separated from each 
other by spaces. If a space is omitted, the number no longer matches, 
resulting in the error message. 

The two inputs "TAX and 0.06 have different forms. The decimal number 
0.0 6 is self-evident. But why is "TAX not simply designated as TAX? 


Try this: 


MAKE TAX 0.06 
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LOGO answers with an error message: 


A 

LOGO ERROR: 

I don't know how to TAX 


Hh 


LOGO tries to take TAX as a command, but cannot execute it. The quotation 
mark before TAX tells LOGO that "TAX does not refer to a command. 

make and "TAX are names for different terms. MAKE is the name of an 
activity or a command. "TAX is supposed to represent a number. All names 
that do not refer to a command must be preceded by a quotation mark in 
LOGO. The number 0.06 is recognized properly without an quotation 
mark. Numbers are also words for LOGO, but because of their special 
significance they are treated as a special type of word. 

Uppercase and lowercase characters in LOGO 

You may have wondered why the letters you type all appear on the screen in 
uppercase, regardless of whether you press the <Shift> key or not. But in 
the error box, the LOGO system reacts with messages written in both 
upper- and lowercase. The ST can obviously write in both. The answer is 
that when DR LOGO is started, uppercase is set as the standard. You can 
change this with the key <Caps Lock> key (to the right of the space bar). 
Then upper- or lowercase characters appear, depending on whether the 
<Shift> key is pressed or not. A couple of notes about this: 

• LOGO vocabulary words (like MAKE) must be written in 
uppercase. The word make will result in an error message. 

• Upper- and lowercase text can be mixed in the words you select, 
like TAX. TAX and Tax are recognized as different LOGO words. 

It's simplest just to leave the standard setting and use all uppercase letters. 
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2.4 Calculating with stored numbers 


Let's return to our tax computations. What does the input line look like for 
calculating the sales tax on a $50 item if the tax is made available to LOGO? 

50*:TAX 

Now what does the colon in front of TAX mean? Why isn't it " TAX like in 
the previous MAKE line? Inputting "TAX instead gives the error message: 



You have now encountered three different naming conventions: 

• no preceding punctuation 

• a preceding quotation mark 

• a preceding colon 

The rules for naming conventions are as follow: 

• Names without special characters designate LOGO 
commands (activities or procedures). 

• Names with preceding quotation marks designate names that 
are assigned certain properties, such as number values. In 
mathematics we speak of a placeholder. More descriptively, 
one can also view names as drawers. 

• Names which begin with a colon designate the value for 
which the place holder stands. We can view : TAX as VALUE 
OF TAX. 
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Expressed differently: 

• " TAX specifies the name of a drawer 

♦ : TAX designates the contents of the drawer in question. 

Naturally the ST has room for more than one drawer. For example, if the 
price is stored with the following: 

MAKE "PRICE 50 

Then the sales tax and total price can be calculated in these two lines: 

:PRICE * :TAX 

:PRICE + :PRICE * :TAX 

Those of you who have worked with other programming languages have to 
become accustomed to using the colon to designate "value of'. You'll 
probably get the error message I don't know how to... often at the 
beginning. LOGO requires the clear distinction between name and content. 
This is related to the fact that LOGO also has capabilities not present in most 
other programming languages. 

For example, the contents of a drawer can be the name of another drawer. 
Or, the names of drawers can also be manipulated (divided and combined). 
Finally, names can be assigned properties other than values. We will look at 
these advanced LOGO capabilities more closely in later lessons. 
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2.5 Mathematical functions 


Simple pocket calculators usually have a key for computing the square root. 
Better-equipped models have additional keys for trigonometrical and other 
mathematical functions. DR LOGO also comes with a set of mathematical 
functions. 


Function 

Result 

Remarks 

SQRT 2 

1.41421 

Square root of the number 2 

SUM 4 5 

9 

Sum of the input values 

(SUM 456) 

15 


PRODUCT 6 3 

18 

Product of the input values 

(PRODUCT 632) 

36 


EXP 1 

2.718282 

Value of the exponential 
function with base 
e=2.718282 

LOG 0.367895 

-1 

Natural logarithm 

LOG10 1000 

3 

Base 10 logarithm 


SQRT is a name preceded by neither a quotation mark nor a colon, but 
which represents an activity. The proper translation would be: 

SQRT = calculate the square root 

The input value can be a number in the form of a constant, or also the value 
of a placeholder (contents of a drawer). Example: 

MAKE "NUMBER 3.14159 SQRT :NUMBER 
Result: 1.772453 

A calculation may also be used instead of a number: 

SQRT :NUMBER * :NUMBER 

Result: 3.1415 92 
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By the way, functions that have just one input value let you place the value 
in parentheses and then omit the separating space: 

SQRT(5), SQRT(:NUMBER) 
instead of SQRT 5 
or SQRT :NUMBER 

The parentheses are standard for functions in mathematics, and are also 
used by most other programming languages. 

SUM and PRODUCT function just like the prefix notation for addition or 
multiplication. They are not really necessary: 

SUM 4 5 corresponds to + 4 5 

The exponential function with base e=2.7182 82 is performed under its 
own designation. However, note that powers with a general base are 
available through the exponential function with the circumflex. There is no 
special limitation in this respect. 

Try this: 

EXP 41 

Answer: 6.398438E17 

The result is printed in scientific notation, similar to a calculator or other 
programming languages. The first number is the mantissa, which must be 
multiplied by 10 to the 17th power. 

Check the following computation with a calculator once: 

EXP 100 

Answer: 9.223371E18 

LOGO got the wrong answer! This can be seen immediately in the line: 

LOG EXP 100 
Answer: 43.66827 

The result should be 100, since logarithm and exponential are inverse 
functions. But nobody's perfect—not even DR LOGO! 
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Actually, the error window should open here and the message Number 
too big should appear. Computers cannot work with arbitrarily large 
numbers. With 9.2. . . E18 we have encountered the upper limit of DR 
LOGO. Normally there are error messages for exceeding the largest 
number. But we can also go below the smallest number with which LOGO 
can work. Simply enter the number IE-20: 

IE-20 
Answer: 0 


IE-20 is already too small. LOGO simply outputs 0. 


Let's take a look at the next group of functions: 


Function 

Result 

Remarks 

ABS -5 

5 

Absolute value 

ROUND 3.2 

3 

Rounded value of number 3.2 

ROUND 3.6 

4 


INT 4.3 

4 

Integer value of the number 4.3 

QUOTIENT 8 3 

2 

Integer portion of the fraction 8/3 

QUOTIENT 8 -3 

-2 


REMAINDER 11 4 

3 

Remainder of the division 11/4 

REMAINDER -10 -3 

-1 



The meaning of ABS is in reference to the notation for negative constants. 
You must note the difference between the minus sign as the operator for 
subtraction and as the character for a negative sign. 


DR LOGO interprets the minus sign as an operator if a space follows it. In 
order to insure that the character is interpreted as a negative sign, no space 
may follow it. But a warning—not all LOGO versions work like this! 


The remaining functions in the table— ROUND, INT, QUOTIENT, and 
remainder —have in common the fact that their result is an integer. 
ROUND rounds an input value up or down to an integer. For negative inputs 
the amount of the number is rounded. INT returns the integer portion of an 
input. 
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QUOTIENT and REMAINDER return the integer portion of the quotient and 
the remainder when dividing integers. If the input values are not integers, 
they are first rounded as for INT. Whenever DR LOGO expects an integer, 
non-integer input values will be truncated. 

The last group of functions is the trigonometrical functions: 


Function 

SIN 30 

Result 

0.5 

Remarks 

Sine of the angle 30 degrees 

COS 30 

0.866025 

Cosine of the angle 30 degrees 

TAN 30 

0.57735 

Tangent of the angle 30 deg. 

ARCTAN 0.5 

26.565051 

Arctangent of 0.5 in degrees 

RADIANS 180 

DEGREES 1 

3.141592 

57.295784 

Convert angle degrees to radians 
Radians to degrees 

DEGREES 3.1415927 

PI 

180 

3.141592 

Internal value of k 


Nothing more will be said about the meaning of SIN, COS, or TAN. Of the 
inverse functions, only arctangent is present, from which the inverse 
functions of the other trigonometrical functions can be calculated. Note that 
the trig function input is in degrees, and the arctangent output is also in 
degrees. 

Conversion between degrees and radians is performed with the functions 
DEGREES and RADIANS. The argument for SIN can then be entered in 
radians as follows: 

SIN DEGREES 1.570796 
Result: 1 

PI is a function without an input. It returns the value of 7t, the quotient of 
circumference and the diameter of a unit circle. Based on content, PI 
returns the value of a constant. Syntactically it involves a procedure, which 
is why it is called without a preceding colon. 
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Practice problems 

1) Compute the following expression for various values of x: 

5x^-3x 


2x + 1 

2) 1st line: MAKE "NUMBER PI MAKE "NUMH 1 

2nd line: MAKE "NUMH : NUMH * : NUMBER :NUMH 
What happens if you enter the second line again (with 
<Control>Y)? 

3) A value table for square root (MAKE "A 4 SQRT :A)can 
be created by repeating the line and replacing the number 4. 
Create a table for the cotangent function (cot(x)=l/tan(x)) in 
this way. 

4) 1st line: MAKE "W 1 MAKE "R 2 

2nd line: MAKE "W (:W + :R / :W) / 2 :W 
See what number results when the second line is continually 
repeated. What does this number represent? 
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Throwing dice and repeating 


New language elements: 

RANDOM, RERANDOM, PRINT, TYPE, COPYON, COPYOFF, 
REPEAT, List access. Interruption with <Control>G, <Control>Z, CO 


3.1 Random numbers 


The fact that computers can work with random elements seems nonsensical 
to some at first. Enter the following line to see this: 

RANDOM 6 

This line can be entered again unchanged with the repetition key 
combination <Control>Y. In spite of the fact that the same instruction is 
entered, LOGO returns different answers. But the following is common to 
all the results: 

• The result of RANDOM N is always an integer 

• The value lies between 0 and N-l. 

The term random number means that it is an unpredictable number within a 
possible given range, as could be expected from a truly random process like 
rolling a pair of dice. When rolling a die, the result is always between 1 and 
6. We can easily do this with the following: 

1+ RANDOM 6 

With this line we have actually simulated a thrown die. Each time LOGO is 
started, the same sequence of numbers results from using RANDOM. This 
condition can also be restored with the command RERANDOM . If the line for 
simulating a die is preceded with RERANDOM, then the same number is 
always generated: 

RERANDOM 1+RANDOM 6 

Some computers can get the reverse effect, by ensuring that the sequences 
of random numbers don't repeat. Then the sequence can be started 
externally. 


35 



Abacus Software 


ST LOGO User's Guide 


3.2 Outputting calculation results 


Up to now LOGO has processed all computations and displayed the result 
onscreen. This is not done automatically, since results actually occur only 
inside the computer. For the computer, the screen is an output device, 
treated like a printer or a disk drive. With most programming languages 
(and also with some LOGO versions) you must always send the output to 
the screen with a special instruction. DR LOGO automatically outputs the 
computation result of an input line, but only if the input line can be divided 
into intelligible tasks. 

DR LOGO treats the commands given directly in an input line specially. 
LOGO tries to produce as many intelligible results as possible, even if the 
otherwise applicable language rules are not adhered to exactly. 

In the general case, the instruction print is used to output results. Here 
are some examples: 

PRINT 3*5 

(PRINT 3*5 7*9) 

PR 1+RANDOM 6 

PRINT means "Output... on the screen." The data or values to be outputted 
are separated from each other by spaces. Generally only one result is 
expected when you call PRINT. If several results are to be printed, as in the 
second example, all values t(together with the keyword PRINT) must be 
enclosed in parenthesis. The parenthesis cause LOGO to view several 
segments as a cohesive unit. 

The third example replaces the keyword PRINT with the abbreviation PR. 
There are abbreviations for a set of often-used LOGO keywords. These 
abbreviations can make the input easier, but also hurt program readability. 
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Printer output 

If you have a printer hooked up to your computer, you can also output 
results to it. In LOGO this is usually very simple: 

COPYON 

Calling COP YON ensures that all outputs that later appear in the text window 
are also sent to the printer. COP YON adds the printer as a second output 
device. The printer output can be turned off again with this: 

COPYOFF 

In addition to text window output, the output in the DEBUG window is also 
sent to the printer. 
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3.3 Repeating LOGO instructions 


Whether or not 1+RANDOM 6 really simulates a good die can only be 
judged by having the computer generate a large number of "rolls." 
Repeating the input line with <Control>Y is quite simple, but we can 
program the ST to repeat a task independently without manual intervention. 
The command REPEAT 1 0 tells LOGO to repeat an action 10 times: 

REPEAT 10 [PRINT 1+ RANDOM 6] 

REPEAT requires two parameters: 

♦ the action to be repeated 

• the frequency of repetition 

The number of repetitions obviously must be a natural number. LOGO 
ensures that the value is an integer by first truncating it. LOGO also allows 
the value zero, in which case nothing happens in the REPEAT line. The 
number of repetitions does not have to be a constant—the value of a 
placeholder can also be used. For example: 

MAKE "N 10 

REPEAT :N [PR 1+RANDOM 6] 

The constant can also be replaced by a computation if it leads to a suitable 
result. However, LOGO lets us use of an activity at this point, if this 
activity returns a useable result, i.e. a non-negative number. Try the 
following example several times: 

REPEAT RANDOM 10 [PR 1+RANDOM 6] 

Here the number of repetitions is determined by RANDOM 10. For clarity, 
you can also enclose RANDOM and 10 in parentheses: 

(RANDOM 10) 

The repeated activity corresponds to what was previously alone on an input 
line. Activities and sequences of activities can be repeated. In our example 
the repeated activity is output (PRINT) of the result of 1 + RANDOM 6. 
Note that the activity PRINT must be given here. Only for simple input lines 
does LOGO produce the output itself. 
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The activity to be repeated is enclosed in square brackets. The brackets are 
mandatory, and are not used simply to indicate that what the brackets 
contain belongs together. Without the brackets you would get the error 
message: 



Later we will discuss why this error message appears. 

Now we encounter the second central term of the LOGO programming 
language—the term LIST. 

With REPEAT we can repeat not only one activity but a whole set of 
activities. These activities must be enumerated. They are separated by 
spaces, and are combined with square brackets. Later we will become 
acquainted with a whole set of other possibilities for generating lists. 

An improvement of the dice roll input line serves as an example for 
repeating multiple activities. 

Previously, the random numbers were outputted on a new line. The PRINT 
instruction always creates a carriage return automatically after the output. If 
several results are printed at once, LOGO automatically creates separating 
spaces. This results in easily readable output in most cases. But both the 
automatic formatting functions and the automatic carriage return can be 
suppressed. For this purpose PRINT or PR must be replaced with TYPE. 

TYPE 3*5 TYPE 7*9 
Answer: 15 63? 
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The answer does not mean the number 1563, of course; the two results 15 
and 63 are printed one after the other without a separating blank space. If 

both results are printed with a single TYPE instruction, they are separated 
with a space. 

(TYPE 3*5 7*9) 

Answer: 1563 

Lets use TYPE instead of PRINT for repeatedly throwing the die: 

REPEAT 10 [TYPE 1+RANDOM 6] 

The ten random numbers are all printed on a line like we wanted, but 
without separators. If the automatic formatting is avoided by using TYPE, 
separating characters must be be explicitly provided. A comma might be 
used as a separator, for instance, but it must be given explicitly: 

REPEAT 10 [TYPE 1+RANDOM 6 TYPE ",] 

To output a comma, we can't write the character by itself, because LOGO 
would look for a procedure by this name. A quotation mark must therefore 
be placed in front of the comma. 

Other punctuation marks can be used in place of the comma. Other 
arrangements must be made if the separator is a blank space. This is always 
the case when a character with a special meaning in LOGO syntax is used 
as a normal character. The separating effect of the space is disabled if a 
number sign is placed in front of it: 

REPEAT 10 [TYPE 1+RANDOM 6 TYPE "# ] 

The number sign itself is not printed, since it is there simply to designate the 
character following it as text. Other possible meanings in LOGO are 
disabled. A blank space then no longer functions as a separator. 

Instead of repeating the type instruction, both outputs could be performed 
with a single TYPE instruction. We do this by enclosing TYPE in 
parentheses, together with the corresponding inputs: 

REPEAT 10 [(TYPE 1+RANDOM 6 "# )] 

Here another space is actually inserted. 
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Now instead of 10 repetitions, let's do 10000 repetitions once for fun: 

REPEAT 10000 [(TYPE 1+RANDOM 6 "# )] 

Those of you with patience and a printer can determine if LOGO can 
actually simulate a real die using RANDOM. A "true" die rolls all numbers 
between 1 and 6 with equal frequency—if enough throws are made. 

It would be too boring to follow each of the die rolls. We'll find ourselves 
wanting to interrupt a current LOGO action. 

You can immediately terminate the current LOGO activity with the key 
combination <Control>G: 


?Stopped! 

This intervention causes the 10000 die rolls to come to a complete stop. 

We can also interrupt a LOGO activity after a certain period of time if we 
wish. A special key combination is used for this too. <Control> Z interrupts 
the current activity. The activity can be continued with 

CO (abbreviation for continue) 

LOGO indicates the interruption with the output Paus ing .... Later you 
notice that LOGO gives additional information when stopping or pausing, 
indicating the location where the termination or pause took place. For this 
reason square brackets appear in front of the question mark when directly 
executing an input line. 

Other activities can occur while the program is paused and the program can 
still be continued. The currently paused instruction can even be altered 
during this pause! 

Under GEM you can terminate and pause the program (and continue it, as 
well) with the help of the mouse. To do this, move the mouse pointer to the 
menu Run in the menu bar of GEM. The menu displays the options Stop, 
Pause, and Continue: 
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They are selected by clicking each appropriate option. 

There is also a method of stopping the program that really has nothing to do 
with LOGO. If you move the mouse to an item on the menu bar, the menu 
opens and that option is given precedence by GEM. LOGO must pause until 
the window has been closed again by moving the mouse. In this manner 
you can pause and resume the execution of LOGO programs with the mouse 
pointer alone. 

Practice problems 

1) Write a program to roll two dice at the same time, and output 
the sum of the rolled numbers as a result 

2) Output birthdates in this century with day, month, and year 
generated randomly. 
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Programming with LOGO 


New language elements: 

TO, <Control>G, <Control>C, OUTPUT, Procedures 
Programs: 

CIRCLECIRCUM, SURFACE 


4.1 Programming as language extension 


Working with LOGO is a process of calling up various LOGO system 
activities. After the initial greeting appears, a basic vocabulary for issuing 
commands is available. This LOGO vocabulary is already quite 
comprehensive, because LOGO has a large number of pre-defined activities. 
But the fascinating thing about working with computers is having the ability 
to build new activities out of simpler ones. The number of possible activities 
is, in principle, unlimited. 

Before a new activity can be used, LOGO must learn what you want done. 
Programming means simply informing the LOGO system what you want it 
to do in the future with a previously unknown activity. 

LOGO activities invented by the user are treated just like those found in the 
basic LOGO vocabulary. 

Programming in LOGO is expanding the vocabulary of LOGO. 

If the memory of your computer were unlimited, you could in principle 
define new LOGO activities during each session and save the expanded 
vocabulary on disk. Before the next session with LOGO you could load all 
of the expansions from the previous sessions so that your LOGO system 
would grow continually and the scope of the vocabulary would continue 
expanding. 

But we can only work with a limited-memory system. This isn't a serious 
limitation, though, since we need only a certain selection of activities for 
any given application. 
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4.2 Working with procedures 


The activities in LOGO are also called procedures. All procedures, whether 
those in the basic LOGO vocabulary or those added by the programmer, are 
handled in the same manner by the LOGO system. For this reason it is 
easiest to study how operations are executed with the LOGO words and 
procedures you already know, like PRINT, MAKE, REPEAT, RANDOM, etc. 

First, the activity to be performed must be named. Calling a procedure 
begins with the corresponding procedure name, entered without any 
preceding special characters. Some activities require no additional 
specifications. 

Examples we've already looked at are: 

COPYON, CO 

In most cases, procedures require one or more inputs. Here are some 
examples: 


PRINT "HELLO 
MAKE "N 2 

REPEAT :N [PR 1+RANDOM 6] 

In the first example, the data required as the input for the activity designated 
by PRINT is obviously the data to be printed. Here the word HELLO is 
intended to be printed. Since hello is a word and not a procedure name, 
the quotation mark must be placed at the beginning. Instead of "HELLO we 
can also use a number: 

PRINT 3.14 

We could also specify the name of an activity that returns the output as the 
result. For example: 

PRINT RANDOM 6 

Since RANDOM requires the range specification from which the random 
numbers are derived, the complete call RANDOM 6 replaces the word 
"HELLO from the first example. The number 6 here is the input of RANDOM. 
An input belongs with the last specified procedure name to the left. 
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An activity execution must be given the inputs in exact order, and this order 
must be carefully noted. The number of inputs is also usually predetermined 
and cannot be altered. Exceptions to this rule in the fundamental LOGO 
vocabulary are words like PRINT or TYPE. 

PRINT normally requires one input, but more are allowed. For example: 
(PRINT "PI= 3.14159) 

When deviating from the standard number, parenthesis must be placed 
around the entire procedure call. 

Input can also be the contents of a drawer—i.e., the value of the placeholder 
designated by a word: 

PRINT :TAX 

LOGO checks to see if the name TAX is known. If the program does not 
find this name, LOGO answers with the following error message: 

TAX has no value 

On the other hand, if TAX was previously declared, LOGO output its value 
on the screen: 


MAKE "TAX .04 
PRINT :TAX 

Note the difference between the above lines and the one following: 

PRINT "TAX 

In this case the word TAX is printed as is on the screen. 

As a second example, let's take a closer look at the use of make. The word 
MAKE is a procedure with two inputs: the first is a word used as a name, 
and the second is the contents of the drawer with that name. The meaning of 
the two inputs is clearly determined by their order. Try this out once: 

MAKE "NAME "LITTLE DEBBIE 
PRINT :NAME 
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LOGO then outputs the words LITTLE DEBBIE as expected. If you 
exchanged the two inputs to MAKE, the word NAME would be stored under 
the name LITTLE DEBBIE. 

Another important symbol for inputs can be demonstrated with another 
familiar example. In the previous lesson the LOGO word REPEAT, for 
repeating input lines was presented. REPEAT is a procedure with two 
inputs: 

REPEAT :N [PRINT RANDOM 6] 

The second input is now a list, as indicated by the square brackets. The 
contents of a drawer could also be used in place of this list, provided the 
contents is really a list. This previous example could also be replaced with: 

MAKE "ACTION [PRINT RANDOM 6] 

REPEAT :N :ACTION 

This example illustrates one of LOGO'S most noteworthy aspects. When 
calling REPEAT, the repeated command sequence does not have to be 
written after it again. LOGO takes the instructions as the value of a name 
from the corresponding drawer. In most programming languages this 
operation is not possible at all. 

The two inputs for REPEAT are differentiated by type. The first input must 
be a number or a procedure call with a number as a result. The second input 
is supposed to be a list or an activity that results in a list. If a list is entered 
instead of a number, or vice versa, for example: 

REPEAT [10] [PR RANDOM 6] 

then LOGO will respond with an error message: 



48 








Abacus Software 


ST LOGO User’s Guide 


4.3 Procedures with results 


MAKE executes an activity with no immediately noticeable result. MAKE 
requires two inputs, but no results in the form of outputs are returned. This 
is different than, for example: 


RANDOM 6 

LOGO might answer such a line with something like the following: 

1 

RANDOM creates a result. This makes sense, since the computer should not 
just generate random numbers internally—it should also output the resulting 
number. Usually the programmer wants to execute additional activities in a 
line such as: 


PRINT 1+RANDOM 6 

Here 1 is added to the result ,and the sum is printed. This is not the case in 
the following line: 

PRINT MAKE "N 2 

Here MAKE does not produce a result. The output procedure PRINT finds 
nothing to output. LOGO therefore answers with the error message: 

[MAKE "N 2] didn't output to PRINT 

Typical examples of activities with output are mathematical functions, like 
the following line: 

SQRT 2, SIN 30 

There are also activities that output a certain value as the result, which can 
then be processed further. 

Note the following: 

• A procedure can have several inputs. 

♦ A procedure can have either no output or exactly one output value. 
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Procedures that output a result are often called functions. In this respect, 
LOGO is a programming language designed for the use of functions. At 
first glance the fact that only one output is possible seems like a limitation. 
But several outputs can be combined into a single list, so that only one 
output value is generated at the end. This is examined in more detail in 
conjunction with list processing. 


50 



Abacus Software 


ST LOGO User’s Guide 


4.4 Writing simple programs 


We've shown you how to work with procedures using some of the words 
found in the fundamental LOGO vocabulary. Now that you know this, we 
can finally start with the language extension. 

Up to now all the activities we've performed using LOGO were already 
defined. When introducing new vocabulary words, LOGO must first learn 
them. This procedure calls for a different aspect of the LOGO system than 
was used to call previously defined activities. LOGO must therefore be 
placed in a special learning mode, a mode with counterparts in many other 
programming languages. 

This activity is called editing programs. Learning or editing can refer to 
something completely new, or it can involve changing something previously 
learned. DR LOGO gives you the option of entering a new procedure in the 
text window line by line. We'll discuss this variant here first 

For the most part, and especially for corrections or changes to existing 
procedures, this process is done in a separate window called the Edit 
window. This is discussed in the following lesson. 

Example 1: LOGO is to learn how to roll dice. You are already familiar with 
the following input line: 

1+RANDOM 6 

Here the instruction for rolling a die must be made up of existing vocabulary 
words. It would be simpler if LOGO could give the answer directly after 
entering the command ROLL. To teach LOGO the activity ROLL, enter: 

TO ROLL 

The word TO tells the LOGO system that a new verb is about to be defined. 
You enter the line TO ROLL by pressing the <Retum> key. The ST 
indicates the new learning state with a different prompt character, to indicate 
that it's waiting for input. A > sign appears instead of the usual question 
mark. At this prompt enter: 

OUTPUT 1+RANDOM 6 
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OUTPUT can also be abbreviated to OP. The line can be worded: 

OP 1+RANDOM 6 

OUTPUT indicates that the activity ROLL has a result just like RANDOM, 
SORT, and others. OUTPUT also causes the end of the activity ROLL. 
Therefore it doesn't make sense to add additional lines after the line 
containing OUTPUT. 

ROLL is now defined, but the end must still be marked. To do this, enter 
END 

DR LOGO now notices that the process of learning the activity ROLL is 
completed. The > character at the beginning of the line disappears. The 
following message is printed: 

ROLL DEFINED 

The procedure with the name ROLL is now available. But please note that 
the LOGO system does not check to see if the activity roll is syntactically 
correct, or whether it makes sense when it is being edited. Errors will not 
show up until ROLL is executed. 

Check to see if ROLL can really roll a die. Simply type ROLL. You'll see 
that ROLL has the same effect as the input line 1+RANDOM 6. 

Additional examples of simple programs: Circle calculations 

Simple programs for calculating the circumference and surface area of a 
circle can be introduced as the new LOGO words CIRCUM and AREA. 

After entering "TO CIRCUM", the formula for the circumference of a circle 
can then be entered as the output of the procedure CIRCUM: 

TO CIRCUM 
OUTPUT 2* PI* :R 
END 
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Correspondingly, for the surface area of a circle: 

TO AREA 
OP PI*:R*:R 
END 

Both formulas take advantage of the fact that 7t is stored by DR LOGO 
under the function name PI. 

If you have not made any typing errors, both new LOGO words CIRCUM 
and AREA should have the same effect as the corresponding input lines. 



There is no known activity under the name R. LOGO does not know how R 
is to be executed. The procedure name R is used in the procedure CIRCUM 
in the line OP 2 * PI * R. The error is easy to spot: Because of a typing 
error, the colon in front of R is missing, which tells LOGO that the value of 
R is desired and not a procedure R. 

Another alternative is present in the error window in addition to the standard 

OK: 

EDIT 

You can give your OK with the <Retum> key as usual. To select the 
alternative EDIT, the mouse pointer must be moved to its corresponding 
button. After clicking the button, the EDIT window opens in the lower left 
area of the screen. 
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But note that this error message only refers to the procedure in which the 
error was recognized (found in the first line of the error message). It may 
happen that the problem occurs here, but that its cause lies elsewhere. 
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Editing programs 


New language elements: 

EDIT, PO, EDPS, EDALL, EDNS, POALL, POPS, PONS, 
POTS, ERASE, ERN, ERALL, ERNS, ERPS, Editor commands, 
Global and local names 


5.1 Making program corrections 


One way to correct programs is to type them in again and again until you get 
it right This is not exactly the most intelligent way to go about your editing, 
and more importantly, this method makes it easy for new errors to crop up. 
DR LOGO offers you an easy to use editor that is intended for creating and 
editing program texts. 

Even when you are entering new procedures, we advise you to write the 
entire text of the procedure with this editor. Only when you are entering a 
finished procedure, and can assume that no corrections are necessary, does 
it make sense to enter the program text directly in the text window. 

The LOGO editor is a special wordprocessing program that lets you change 
and expand your program texts. You can process individual procedures or 
all the program texts in memory at once. Even the values which you have 
assigned to certain names can be changed. As a rule though, you should 
always edit just one procedure at a time. 

You can enter the editor by selecting the EDIT button in the error window 
with the mouse, as already mentioned. You can also click the Edit option 
from the ST menu bar. This option gives you the choice of editing the 
workspace, the entire contents of the LOGO working memory, or a file. 

A procedure can be edited with the EDIT command (abbreviated ED): 

EDIT "CIRCUM 

(or) 

ED "CIRCUM 
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Here the CIRCUM procedure is edited. Note that the quotation mark before 
CIRCUM is necessary. This corresponds to the rule used for make. If, on 
the other hand, you enter a procedure text in the text window with TO 
CIRCUM, the procedure name is specified without a quotation mark. 

The EDIT command opens a new window in the lower left area of the 
screen. You can tell if this LOGO EDITOR window is active by its title line. 

The LOGO EDITOR window is relatively small at first, but you can enlarge 
it as usual with the mouse. You can expand the window to fill the entire 
screen by clicking the upper right comer of the window. 

If the specified procedure already exists, the program text appears in the edit 
window. If the procedure is new, the following appears in the LOGO 
EDITOR window: 

TO CIRCUM 
END 

The only input for EDIT is the procedure name, preceded by a quotation 
mark. LOGO adds an END. You then enter the program text between the 
procedure name and the END of the procedure. 

You can enter several procedures in sequence in one editing process. Each 
must be concluded with the line END. DR LOGO provides you with one 
END. You have to type the rest yourself. 

How do I exit the EDIT mode? 

You can exit the EDIT mode by any of the following methods, using either 
the keyboard or the mouse: 

• Press the keys <Control>C 

• If the mouse pointer is moved to the upper left comer of the 
EDIT window and clicked, the window disappears. This also 
exits the EDIT mode. 

• By selecting the option Save Edit in the Edit menu, the 
edit mode is also exited. In the text window LOGO reacts with 
the message: 

CIRCUM defined 
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You can also abort the entire edit with <Control>G or by selecting the 


Abandon option 
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The Edit menu in the menu bar is quite helpful. You can select the most 
important aids for editing directly. Even if you would rather use the 
keyboard, the menu at least serves as a good memory aid. Next to the 
options like Abandon and Mark you'll find their keyboard equivalents 
listed. The circumflex refers to the <Control> key. For example, 
<Control>U is equivalent to the Page Up option. 
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Moving the cursor 

You can move the cursor in all four directions hen editing program lines. In 
addition, the cursor can be placed at the beginning of a line with <Control> 
A and at the end of a line with <Control> E. (Here a line refers to a screen 
window line). 

If a program line is too long for a single screen line, the line automatically 
continues on the next, and a quotation mark at the end of the screen line 
signifies the continuation. 


A program line is ended by pressing the <Retum> key. The spaces 
following the line on the screen are not part of the program text. LOGO 
programs can be visually structured by formatting the lines as desired. This 
structure is irrelevant as far as the LOGO syntax rules are concerned, but it 
makes the text easier to read. In any case, you should avoid long program 
lines when possible. 

When a screen line is concluded with <Retum>, its end is specified by the 
cim-ent cursor position. If additional text follows the cursor on the screen, it 
will automatically be moved to the next line, which is made clear on the 
screen. Long program lines can be broken down in this manner. 


The LOGO editor also allows cursor movements over longer distances. 


• <Control>R 

• <Control>X 

• <Control>L 

• <Control>V 

• <Control>U 


sets the cursor to the start of the program text 

sets the cursor to the end of the text 

places the current text line in the middle of the screen so the 

text environment of the line can be seen. 

pages the text one page forward. 

pages the text one page back. 
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Deleting 

<Control> D deletes the character under the cursor. <Control> K deletes the 
remainder of the line in the window starting from the cursor position. 

The keys <Backspace> and <Delete> delete the character preceding the 
cursor. If the cursor is at the start of a line, the internal marker indicating the 
end of the previous line is erased. This appends the program line the cursor 
was on to the previous line. This feature can be used to rejoin lines that 
were separated with <Retum>. 

Inserting lines and characters 

You can insert entire program lines when editing programs. To do this you 
type <Control> O (Open a new line). Program text to the right of the cursor 
position is moved down to create space for the start of a new line. 

Characters are inserted in the same manner as input lines. The characters are 
written at the cursor position and the existing program text is moved down 
so that it is not overwritten. The text in the input buffer can be inserted with 
the key combination <Control>Y, as already mentioned. This is especially 
useful if text was deleted unintentionally. The corrected program can be 
placed in the LOGO vocabulary, causing the old program text to be 
overwritten automatically. 

Block operations 

The LOGO editor also offers you the capability to move or delete larger 
sections of the program text, known as blocks. To do this, the portion of 
the text must first be marked as a block. 

The cursor is placed at the start of the text section to be processed and 
marked with <Control>S. The same is done at the end of the block. The 
marked block can be copied with <Control>T and pasted anywhere in the 
text at the cursor position with <Control>Y. The block is deleted with 
<Control>W. 

Warning: We have encountered some nasty surprises when moving text 
blocks. If a block is copied downward in the text, the copy works as 
desired. If an attempt is made to copy a block towards the text beginning 
with <Control>T, the entire LOGO system can hang up. The only way to 
regain control of the system is to press the Reset button. 
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5.2 Programs with inputs 


In Chapter 2 we looked at an example of sales tax computation, where the 
ST executes the computation immediately after the line is entered. Let's do 
this now with a program: 

TO SALESTAX 

OP :TAX * :PRICE 

END 

TO TOTAL 

OP ( 1 + :TAX ) * :PRICE 

END 

Both procedures need the value of the sales tax, which must be defined with 
a line like the following: 

MAKE "TAX 0.04 

It would be useful to tell LOGO the value of tax once and for all, so that 
you don't have to enter the number each time. 

We want the name TAX, which represents for the sales tax figure, to be 
available to all activities that take place in this LOGO session. Such names 
are called global names. A global name is defined once, then becomes part 
of the LOGO system and can be accessed by all LOGO activities. 

Our example happens to be a current sales tax. A physicist would probably 
like to store important natural constants under appropriate names, and a 
financier would give global names to exchange rates, etc.—the possibilities 
for global names are limitless. 

For the procedures for tax calculation to return a value, the price must also 
be known. Previously the price had to be defined before sale STAX or 
total was called: 

MAKE "PRICE 156.30 

Here the price is also made a global name. All following LOGO activities 
can access the number 156.30 under this name until another MAKE with the 
name price changes its value. 
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Treating the value 156.30 so specially seems unnecessary and clumsy. The 
number 156.30 has no great significance to deserve a reserved place for all 
future LOGO activities. The procedure is clumsy because for each new price 
an entire line of the following form must be entered: 

MAKE "PRICE 520.10 

A better method would be something like that used for a mathematical 
function: 


SQRT 2 

Here only the input value 2 needs to be changed to get a new value for the 
square root. The number 2 has significance only at the time of the function 
call. The programs for tax calculation would be easier to use if the current 
price could be specified as an input to the procedures SALE STAX and 
TOTAL, like for the built-in function SQRT. 

To change the two programs, select the LOGO editor with the following 
input 

EDPS (Edit all procedures) 

All activities present in working memory are passed to the editor for 
processing. Now type: 

EDALL 

All names, as well as procedures, are now prepared for editing. The above 
command has the same effect as the Workspace option in the Edit 
menu. In this case you find all of the procedures in the Edit window, 
including lines like the following: 

MAKE "TAX 0.04 

You can enter or change the value of TAX or other global names with this 
method. Using the editor for this purpose is practical if the MAKE... line is 
relatively long and only a little bit of it needs changing. 

Change the title lines of the two short procedures to the following: 

TO SALESTAX :PRICE 
TO TOTAL :PRICE 
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Editing is terminated with <Control>C or by clicking the upper left comer 
of the Edit window. Alternatively, you can click the Save Edit option 
in the Edit menu. After this, SALE STAX and TOTAL can be used like 
mathematical functions. 

SALESTAX 100 
Answer: 4 

TOTAL 100 
Answer: 104 

LOGO has now learned two new mathematical functions. 


66 



Abacus Software 


ST LOGO User's Guide 


5.3 Global and local names 


The number values 156.30,100, etc. have significance only where they are 
entered in the procedure call. In the program text they are used under the 
name PRICE. What value does PRICE now have after the three lines 
specified above are entered? 

Check the value with this line: 

PRINT :PRICE 

LOGO'S answer is: 


PRICE has no value 

There is no value for the name PRICE although it occurred in the two 
procedures SALESTAX and TOTAL. Since both procedures yield the correct 
results, the value of PRICE must actually exist within the procedures. The 
name PRICE is clearly present with the input value within the procedures, 
but not outside. Such names are called local names. 

It is possible that you didn't get the error message and that LOGO outputted 
a value instead. This is because you have already entered a line make 
"PRICE ... during this session. 

Check this by entering the following: 

EDNS (EDIT NAMES) 

Whereas EDPS only prepares the procedures for editing, EDNS refers only 
to the names. If you actually got a value for PR : PRICE and not an error 
message, a line of the form MAKE "PRICE ... should appear in the window 
after EDNS. This line can be easily deleted with <Control>K. After this 
measure, PR : PRICE should open the error message box. 

The terms global and local indicate when the LOGO system can process the 
names in question: 

• Global names are available for all LOGO activities. 

• Local names are valid only within a procedure. 
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By "all" LOGO activities we mean what is executed in a LOGO session after 
the name was declared. We can also delete global names so that they are no 
longer available to the LOGO system. 


The validity of local names within a single procedure might appear to 
severely limit their use. This is not the case at all, however. That's because 
procedures can themselves call other procedures. LOGO recognizes a local 
name until the end of the procedure where the local name was introduced. 

The significance of the difference between global and local names will 
become clear later in more complicated program examples. For now just 
remember this: 

All inputs to procedures are local names. 
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5.4 Outputting the expanded vocabulary 


When in doubt, you'll have to look in a reference of LOGO'S fundamental 
vocabulary words (see Appendix). If you have extended the vocabulary 
through programming, or have introduced global names, you need a way to 
view the current state of the extension. The LOGO word: 

PO (abbreviation for PRINTOUT) 

serves this purpose. PO requires the procedure name or a list of procedure 
names as input. The program text of the specified procedure is then printed 
in the text window. As when calling the editor, PO has a variant: 

POALL (for PRINTOUT ALL) 

LOGO then writes all existing procedures and global names on the screen. 
The screen soon becomes filled and part of the output disappears before you 
can read it. It's usually best to limit die output. 

If you are interested only in procedures or names, you can tell PO this: 

POPS (for PRINTOUT PROCEDURES) 

PONS (for PRINTOUT NAMES) 

The names are printed together with their values. For example: 

TAX is 0.04 

You can also output procedures individually: 

PO "SALESTAX 
PO [SALESTAX TOTAL 

Sometimes you only want to know what new LOGO words, i.e. procedure 
names, have been defined. The procedure names are called titles. 

POTS (for PRINTOUT TITLES) 

This gives you an overview of the user-defined LOGO procedure names. 
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5.5 Deleting programs and names 


You may also want to remove extensions of the vocabulary from the system 
again. Sometimes it makes more sense to write a new program instead of 
correcting the old one. At some point every programmer reaches the 
memory limit of the ST, and must then try to create space by removing 
applications that are no longer required. The LOGO word: 

ERASE 

is used for deleting. 

ERASE requires one input. For example: 

ERASE "SALESTAX 
ER "TOTAL 

The second example uses the abbreviation er for ERASE. 

It is also possible to erase individual names. There is a separate LOGO 
word for this: 


ERN "TAX (for ERASE name TAX) 

There are also variants which can be used to erase an entire group of 
procedures or names at once: 

ERALL (for ERASE ALL) 

This deletes all names, as well as all procedures. 

ERNS (for ERASE NAMES) 

ERPS (for ERASE PROCEDURES) 

The first example deletes all of the names. The second deletes all of the 
procedures. 


70 



Abacus Software 


ST LOGO User’s Guide 


Spaces as separators 

You may have noticed that blank spaces are used with considerable 
frequency when formulating programs: 

OP (1+:TAX)*:PRICE 

OP ( 1 + :TAX ) * :PRICE 

These two lines have the same effect. In the second line, all terms that don't 
belong to another object are separated by spaces from each other. This 
corresponds to the general LOGO rule: 

LOGO uses blank spaces as separators. If characters in a 
string are not separated from each other by spaces, they belong 
together and represent a single term for LOGO. 

Punctuation is also used to indicate separate terms. The number 1 and the 
value of TAX in 1+: TAX are recognizable as operands for the addition. 
This separation is then recognized without the spaces. But you will discover 
when editing that the editor will insert spaces on its own when the system 
judges them to be necessary. 

If special symbols, including operators, parentheses, quotation marks, and 
the semicolon, are not intended to exercise their unique functions, they must 
be preceded by the number sign (#). 

It's better to use too many spaces rather than too few. But an important 
exception to this rule is the minus sign: 

TAX -100 
TAX - 100 

The first example uses the negative value as a price. The second example 
uses the minus sign as an operator, because it is separated from the number 
100 by a space. This results in an error message. 
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Introduction to Graphics Programming 


New language elements: 

FORWARD, BACK, RIGHT, LEFT, HOME, WINDOW, FENCE, 
WRAP, CLEARSCREEN, CLEAN, BOX, PENUP, PENDOWN, 
HIDETURTLE, SHOWTURTLE, WATCH, NOWATCH, TRACE, 
NOTRACE 

Programs: 

SQUARE, STAR, SHIFT 


The graphics window opens in the right half of the screen as soon as you 
start DR LOGO. This indicates the importance of computer graphics. In 
fact, ST LOGO offers you a spectrum of graphic tools much more 
comprehensive than usual for microcomputer programming languages. 

Programming graphics in LOGO involves giving commands to an 
imaginary pen in the graphics window. Since you can't hold this pen in 
your hand, you have to control it with commands. There are two methods 
for orienting the pen on the screen: 

• the "body-centered" language of the turtle graphics 

• orientation in the coordinate system 

Turtle graphics are commonly used because they were originally developed 
for LOGO. Today many other programming languages have incorporated 
elements of turtle graphics methods as well. 

To differing degrees, most programming languages for computers capable 
of graphics have instructions for drawing in a coordinate system. 
ST LOGO has the standard LOGO turtle graphics, but also has commands 
for coordinate-oriented graphics programming. First we'll discuss turtle 
graphics and later look at the coordinate commands. 
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6.1 Moving the turtle 


What significance does the LOGO turtle have? 

When LOGO is started up, a small triangle appears in the middle of the 
graphics window. This is the "turtle"—though admittedly it's a little 
abstract. 

This little triangle is the symbol for a pen. You can start drawing from 
wherever the turtle is. The pen is intentionally not represented by a dot or a 
small circle, because the point of the triangle indicates in which direction the 
pen is moving. 

The specification of position and direction is the special feature of LOGO'S 
turtle graphics. The turtle is not instructed in the manner of many other 
languages, like "go from X location to Y location." 

Instead, the fundamental command for a turtle is worded like this: 

Go a certain distance in a certain direction. 

The current direction is indicated by the tip of the turtle. Try this: 

FORWARD 60 

The turtle has now moved a short distance up the screen. At the same time it 
has left a "trail" in the form of a line on the screen. Drawing with the turtle 
involves moving the turtle over the graphics screen so that the trail it leaves 
behind results in the desired drawing. 

Naturally, it is possible to change the direction of the turtle. Enter this: 
RIGHT 90 

The turtle rotates 90 degrees to the right. The direction RIGHT refers to the 
turtle itself. 

Actually, FORWARD and RIGHT would suffice for all directions, since a 
right rotation of 270 degrees has the same effect as a left rotation of 90. 
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But LOGO also recognizes backwards movement, and rotation to the left: 

BACK 50 
LEFT 90 

Because these words are often-used, they have simple abbreviations : 


FD 

135 

for 

FORWARD 135 

BK 

70 

for 

BACK 

70 

RT 

80 

for 

RIGHT 

80 

LT 

120 

for 

LEFT 

120 


Try out these commands to move the turtle around on the screen. Now try 
moving the turtle beyond the border of the screen. What happens? 

When the turtle moves beyond the upper screen border, the triangle symbol 
is no longer visible. The turtle can be brought back to its original position 
with this: 

HOME 

This mode where the turtle can move out of the graphics window is the 
default after LOGO is started. DR LOGO recognizes three operating modes 
here. They can be typed in the LOGO DIALOGUE window or selected in 
the Screen option of the Settings menu: 

• WINDOW 

• WRAP 

• FENCE 

The WINDOW mode means the turtle can leave the visible graphics window. 
Only movements taking place within the graphics window are visible. 

In the WRAP mode, when the turtle leaves the graphics window at one side, 
it reappears at the opposite side. If it leaves through the top, it reappears at 
the bottom. Correspondingly, if it exits at the left side, it re-enters at the 
right. 

In FENCE mode, the turtle encounters a barrier at the border of the graphics 
window that prevents it from leaving the window. If the turtle tries to do 
leave the window, you get the error message: 
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LOGO ERROR: 

Turtle out of bounds 


j_B_| 

Note that the turtle remains in its original position in this mode. A command 
is performed in FENCE mode only if the turtle remains in the graphics 
window after command execution. 

Try these commands: 

HOME WINDOW FD 250 
HOME FENCE FD 250 
HOME WRAP FD 250 
HOME WRAP RT 90 FD 200 

The statements about window, wrap and FENCE refer only to the 
graphics window, not to the screen. If you have reduced the graphics 
window with the mouse, the border effects are more pronounced than if you 
had enlarged the graphics window to the entire screen. 

In wrap mode the upper and lower borders are "connected," as are the left 
and right. The turtle behaves as if it were moving on the surface of a sphere. 

WRAPping can lead to some amusing graphic effects. The WINDOW mode 
corresponds more to what you would expect from a graphics surface. 
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6.2 Simple graphics programs 

To construct a square, we simply need to repeat a forward movement 
followed by a rotation by 90 degrees four times, for example: 

FD 80 RT 90 

The input line can be repeated with <Control>Y. LOGO performs this 
repetition automatically with the REPEAT command. The following input 
line results in a square with sides of length 80 units: 

REPEAT 4 [FD 80 RT 90] 

For our first language extension, LOGO learns the activity "Draw a square 
with sides of the given length." We will call our procedure SQUARE: 

TO SQUARE 

You can also call up the LOGO editor directly with this: 

ED "SQUARE 

The LOGO EDITOR window opens with the title line of the procedure TO 
SQUARE, as well as an END. 

The new LOGO activity executes the input line we have used already. The 
entire program appears in the edit window like this: 

TO SQUARE 

>REPEAT 4 [FD 100 RT 90] 

The program is concluded with >END. 

If you used the editor to write this procedure, the procedure TO SQUARE is 
accepted into the LOGO vocabulary with <Control>C or with the Save 
Edit option. 

This process quickly gets boring, because the same square results every 
time. What we need to do is to make the length of the side of the square 
variable. To do this, give the procedure TO SQUARE the length of the side 
as input: 
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TO SQUARE :SIDE 

REPEAT 4 [FD :SIDE RT 90] 

Now type this into the LOGO DIALOGUE window: 

SQUARE 10 SQUARE 20 SQUARE 30 

When drawing squares with variable side lengths becomes boring, try to 
include a random element in the graphic. In the meantime, the screen has 
probably become full of graphics and we need to clear it. Use the LOGO 
command: 

CLEARSCREEN (abbreviated CS) 

for clearing the screen. You can also remove all of the turtle trails from the 
graphics screen with: 

CLEAN 

CLEAN clears the contents of the graphics screen without affecting the turtle 
position. CLEARSCREEN restores the original state of the screen, and puts 
the turtle back to where it started. 

How do you like the following graphic? 

REPEAT 100 [SQUARE RANDOM 150] 
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Figure 6.1 

Take a look at the call to the activity SQUARE in this line. The input of the 
side length is not given as a number, but through another LOGO activity— 
RANDOM. The number 150 is the input of the procedure directly in front of 
it, i.e. RANDOM. RANDOM 150 returns a single number as its result, which 
is then used as the side length in SQUARE. 
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6.3 Text window and graphics window 


ST LOGO is operated under GEM, a graphics-oriented operating system. 
The LOGO system itself is heavily oriented to the graphics window. As the 
title LOGO DIALOGUE for the text window indicates, it serves mainly to 
represent dialog between the user and DR LOGO. 

Try this input line again: 

CS REPEAT 100 [SQUARE RANDOM 150] 

The graphic appears in the upper right section of the graphics window. It 
would be nice to display just die graphic on the screen. To do this, move the 
mouse pointer to the upper right comer of the graphics window and click. 
The window then fills the entire screen. Now there is space on the right for 
more graphics. The old graphics window fills the left half of the current 
window. 

You have to get used to managing the graphics window. Note what happens 
if you "send the turtle home": the text window replaces the left half of the 
graphics window. 

A LOGO dialog is triggered at the conclusion of each input 
line. The LOGO DIALOGUE window is displayed in the 
foreground at the same moment to display the answer. 

You can put the graphics window back in the foreground by clicking the 
mouse pointer on the still-visible portion of the graphics window to the 
right. 

The text window reappears if you just press <Retum > (or <Enter>). You 
may also open the error box in the middle of the screen. This can be easily 
closed again with the <Retum> key. 

If you entered the procedure with the LOGO editor, the dialog window is 
only half as tall, provided you have not enlarged it with the mouse. The text 
window can be kept as small as possible from the beginning, or you can 
move it around the screen with the mouse. Another possibility is to move 
the dialog window almost all of the way out of view beyond the lower 
border of the screen. 
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6.4 Rotating figures 


After the execution of the procedure SQUARE, the turtle has again reached 
its original position in the middle of screen. Repeating SQUARE with the 
same input creates the same figure—it can be detected only from the turtle 
movement. If the turtle is moved before SQUARE is called again, the figure 
does not change, but its position on the screen does: 

SQUARE 60 RIGHT 45 SQUARE 60 

The second square is rotated 45 degrees from the first. The figures are still 
congruent, however. 

Simple figures like squares don't become interesting until we start to repeat 
them. Try the following line (its results are displayed in Figure 6.2): 



Figure 6.2 
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This simple method of rotating and moving entire figures is one of the 
strong points of turtle graphics. To make clear the characteristics of the 
"body-oriented" language of turtle graphics, we'll illustrate how to draw a 
square using the coordinate system. Enter this: 

BOX [0 0 101 101] 

We see the same square that we would get with the following: 

HOME SQUARE 100 

The activity BOX draws a rectangle. The coordinates of the lower left comer 
point, as well as the height and width of the rectangle, must be enclosed in 
square brackets. To get the same result that the activity SQUARE creates, the 
side length must be one unit longer for BOX. 

The essential difference between the LOGO activity BOX and the procedure 
SQUARE is that the orientation of the square drawn with BOX is completely 
independent of the direction of the turtle. The sides of the squares or 
rectangles created with BOX always run vertically and horizontally and 
cannot be rotated. 

If you liked the pattern that resulted from this: 

REPEAT 36 [SQUARE 60 RT 10] 

then you could save it as a language extension for the current LOGO 
session. 


TO START -.SIDE 

REPEAT 36 [SQUARE :SIDE RT 10] 

With a line like this: 

CS STAR 40 STAR 60 STAR 90 

the nested pattern can create quite impressive pictures. 

The side length for the procedure STAR is variable, but the angle of rotation 
is set at 10 degrees. This then gives a complete revolution for 36 
rotations—36 times 10 degrees equals 360 degrees. We could do more with 
the word STAR if the number of rotations were changeable. 
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To change the procedure STAR, open the edit window with: 

ED "STAR 

The text of STAR appears in the edit window. Note that the procedure name 
STAR must be preceded by a quotation mark. Without a quotation mark the 
following message appears: 



Here DR LOGO applies the following rules very strictly: 

• STAR without a quotation mark triggers an execution of the activity 
STAR in all cases. It fails here because the input for the side length 
is missing. 

• With the quotation mark, the LOGO word EDIT is given the name 
of the procedure STAR as input If STAR exists, the editor displays 
the text in the edit window. Otherwise only the title and concluding 
lines appears in the window. 

You can also edit the procedure by selecting Workspace from the Edit 
menu with the mouse. However, all program texts and names which have 
been defined in this session then appear in the Edit window. 

TO STAR :SIDE :N 

REPEAT :N [SQUARE :SIDE RT 360/:N] 

END 
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The modified text of STAR is transmitted to the LOGO system with 
<Control>C or by clicking the Save Edit option. 

The angle of rotation 3 60 / : N ensures that a complete revolution is made. 
Try the following call once to draw the graphic in Figure 6.3: 

STAR 80 2 STAR 40 4 STAR 20 8 



Figure 6.3 

Or surprise yourself by repeating the following line with <Control>Y: 

CS STAR RANDOM 100 RANDOM 72 

This call determines the two inputs to STAR with random numbers. 

The notation 3 60/N : might seem somewhat strange. The division is not 
indicated by the colon, but by the slash. The colon belongs to the name N. 
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6.5 Shifting figures 


After the execution of SQUARE, if the turtle is not rotated by a certain angle 
but moved a certain distance forwards or backwards, the subsequent square 
appears shifted: 

REPEAT 5 [SQUARE 20 FD 20] 

Here five squares are joined together. To make better use of the screen area 
in the following examples, the turtle is first moved down so that more 
space is available above: 

CS BK 50 REPEAT 5 [SQUARE 20 FD 30] 

The squares are no longer immediately adjacent. Something unintentional 
has become noticeable however—the shifted squares are joined to each 
other by a common vertical line. The turtle also leaves a trail when it is 
moved with FD 30. We should be able to disable this, or else all the 
figures on the screen would be connected together. 

To get a "clean" turtle that doesn't leave a trail, use: 

PENUP (abbreviated PU) 

After this command the pen can be moved as before. It can be lowered again 
to continue the drawing with 

PENDOWN (abbreviated PD) 

To accomplish the shift you must lift the pen before the move and then 
lower it again. The movements of the pen can be connected to the drawing 
of the figure. 

It is possible to shift in any direction. A separate LOGO word to do this can 
be useful. 


TO SHIFT :ANGLE :DIST 
HT PENUP RIGHT :ANGLE 
FORWARD :DIST 
LEFT :ANGLE PENDOWN ST 
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The directions correspond to map directions: east corresponds to the angle 
+90 degrees, west -90 degrees, southwest -135, and so on. In the 
procedure SHIFT, the right rotation must be restored again with a 
corresponding left rotation. Otherwise an additional rotation of the figure 
would result in addition to the intended shift. Input the following line, for 
example: 


CS REPEAT 5 [SQUARE 20 SHIFT -45 35] 

You have probably discovered the new abbreviations HT and ST in the 
SHIFT program. Their effect was hardly noticeable when the five squares 
were drawn. 


HIDETURTLE (abbreviated ht) 

SHOWTURTLE (abbreviated ST) 

With these commands the turtle can be made invisible and visible again. It is 
usually not advisable to hide the turtle during the actual drawing process, 
because the turtle movements make clear the changes on the graphics 
screen. If the turtle then disturbs the created graphic, it can always be 
hidden at the conclusion with HT. 

For longer drawing programs, hiding the turtle reduces the time it takes to 
do the drawing. This is because displaying the moving turtle takes the 
computer time. 
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6.6 Procedures calling procedures 


In the simple graphics programs we have looked at so far, the drawing on 
the screen was in the foreground. The resulting procedures were more 
complicated than the simple programs for sales tax calculation. To make 
program structure more clear, we'll take a closer look at the last version of 
the STAR program. We also need the procedure SQUARE. 

TO STAR :SIDE :N 

REPEAT :N [SQUARE :SIDE RT 360/:N] 

END 

TO SQUARE :SIDE 

REPEAT 4 [FD :SIDE RT 90] 

END 

The user-defined LOGO word SQUARE is used in the procedure STAR, 
while the procedure SQUARE uses only the activities from the fundamental 
LOGO vocabulary. 

When new LOGO words arise from programming they are treated in the 
same manner as the original words (the LOGO primitives). After calling the 
activity SQUARE, this procedure executes the LOGO activity FORWARD 
(FD). The important thing is that the input for the procedure FORWARD 
comes from the calling program SQUARE. 

If the program STAR is called with: 

STAR 50 4 

then the number 50 is first passed to the procedure STAR under the name 
SIDE. The name SIDE within STAR is passed to the procedure SQUARE. 
In the procedure SQUARE it is again sent to the LOGO primitive FORWARD. 
Not until this point does the number 50 produce any action on the screen. 

• Procedures can call other procedures. 

• The input values can be passed to the other procedures with then- 
names. 
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You may think that this is rudimentary and a little redundant—every 
programming language should make this possible. However, a glance at the 
most widespread microcomputer programming language, BASIC, shows 
you how well LOGO is conceived. 

LOGO'S ability to pass input values from procedures to other called 
procedures allows modular, building-block type programming. You need 
only know which inputs are required, in what order, to use a procedure 
properly. You don't have to know what these input values are called in the 
program, or what happens with them in detail. The same is true for LOGO 
outputs. 

But not until the activity STAR has been programmed and successfully 
tested can it be included in more complex graphics programs without 
wony. This type of parameter passing works properly only if the inputs to 
the procedures are local names. This becomes clearer in the following 
version of STAR: 

TO STAR :LENGTH :N 

REPEAT :N [SQUARE :LENGTH RT 360/:N] 

END 

TO SQUARE :SIDE 

REPEAT 4 [FD :SIDE RT 90] 

END 

Within the procedure STAR, the input has the value LENGTH. But in the 
procedure SQUARE, where it is actually evaluated, it is called SIDE. This 
can be described as follows: 

An input value is required for processing FORWARD (FD) in the procedure 
SQUARE. There DR LOGO finds the instruction to "look up the value of 
SIDE." But SIDE is an input to SQUARE, so LOGO must see what was 
passed to SQUARE as a parameter by the calling procedure STAR. 
However, there the input is called "value of LENGTH". LENGTH in turn is 
the input value of STAR, so LOGO must actually return the input value of 
the procedure STAR. 

In the passing of inputs to a procedure presented here, the value is passed, 
not the name to which it belongs. Therefore we speak of a "call by value." 
If you are familiar with programming languages like Pascal, ALGOL, or 
PL/1, you may be wondering about "calls by name." LOGO has these 
too—they are discussed in connection with the LOGO word THING. 
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6.7 watch and trace — LOGO overseers 


The "nesting" of procedure calls can allow you to build powerful activities. 
But you must be careful not to lose sight of the program's total overview as 
its complexity grows. DR LOGO features two aids that let you follow the 
execution of a program step by step. Enter: 

TRACE 

The operating state remains valid until you enter: 

NOTRACE 


When you're debugging your programs, outputting TRACE to your printer 
can be especially useful: 

COPYON TRACE 

The TRACE mode can also be selected with the mouse in the Settings 
menu by selecting the Trace option. You can also tell whether Trace is 
active by looking at the menu—a checkmark is placed next to Trace when 
active. 

Try this out with the following: 

STAR 50 2 

A window titled DEBUG INFO opens on the screen instead of the EDIT 
window: 


[1] 

Evaluating 

STAR 

[1] 

N is 2 


[1] 

LENGTH is , 

50 

[2] 

Evaluating 

SQUARE 

[2] 

SIDE is 50 


[2] 

Evaluating 

SQUARE 

[2] 

SIDE is 50 
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The TRACE mode traces the execution of the procedures on the screen. 
Evaluating . . . means that the procedure named has just been called. 
The input values are listed by name and value. 

Note the effect of trace in the following procedure: 

TO SALESTAX :PRICE 
MAKE "TAX .04 
OP :TAX * :PRICE 
END 

Here a value is assigned to a name with MAKE, which leads to the following 
status line: 


[1] Making "TAX 0.04 

SALESTAX also has an output, indicated in the TRACE mode with the 
comment: 


[1] SALESTAX returns ... 

What do the numbers in the brackets mean? 

In the example STAR, the procedure STAR is directly executed by the call 
Star 50 2. Then SQUARE is used at a different level than star, 
indicated by the number in the brackets. 

This becomes even clearer when procedure calls are more deeply nested. If 
the status line starts with [ 3 ], the procedure indicated is called by another 
activity, which is itself executed by a third, and so on. 

The TRACE mode is not only useful when debugging—it also helps you 
understand complicated nested structures in a LOGO program. Because 
LOGO is a higher-level programming language, the inner logic of a program 
can also become more complicated than possible for more primitive 
programming languages. 

You have no doubt discovered the option Watch in the Settings menu 
in addition to the Trace option. To make clear the difference between 
Watch and TRACE, first exit the TRACE mode with NOTRACE. 
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Then try: 


WATCH 
STAR 50 2 


[1] 

In 

STAR, REPEAT :N 

[LENGTH RT 

360 

/ : N] 

[2] 

In 

SQUARE, 

REPEAT 4 

[FD 

: SIDE 

RT 

90] 

[2] 

In 

SQUARE, 

REPEAT 4 

[FD 

: SIDE 

RT 

90] 


Here too we are given status information. The digits in the brackets at the 
start of each status line have the same meaning as in trace. But the listing 
of procedure calls and eventual changes in values are not displayed as they 
are in TRACE. The trace here consists of a listing of the program lines as 
they are executed. The procedure currently being executed, as well as its 
"nesting depth", are made visible at the start of the status line. 

The Watch mode is exited with: 

NOWATCH 

Alternatively, you can click the Watch option in the Settings menu. 

You get the most detailed documentation when you use both the Watch and 
the Trace functions. 

The DEBUG INFO window is relatively small, but it can be enlarged with 
the mouse. If you arrange it so that the DEBUG INFO and GRAPHICS 
DISPLAY windows overlap, you can watch GEM construct the windows 
while STAR runs. The graphics and debug windows alternately become 
active, and GEM always places the active window in the foreground. 

If you call WATCH and STAR 50 2 in one input line, the error message 
box opens because WATCH may not have any inputs: 

WATCH "STAR 

Here the tracing is limited to the command processing in the procedure 
STAR. We can also tell WATCH to trace several procedures at the same time, 
but to do this we must construct a list. Lists are explained in a later chapter. 
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Limiting the Watch mode to certain procedures is very useful for 
debugging because the information printed in the DEBUG INFO window 
can be limited to the environment of an error. 

We can intervene in the program execution during a trace with TRACE or 
WATCH. The program can be halted simply by moving the mouse pointer to 
a menu option in the menu bar. As soon as the corresponding menu drops 
down, DR LOGO stops processing. Execution is resumed when you click 
outside this window in the text, debug, or graphics windows. You can also 
pause a program with <Control>Z. 


Practice problems 

1) Move the turtle around the screen randomly. Direction and distance 
should be controlled by the RANDOM function. The input value for 
this program should be the number of repetitions. 

2) Write a procedure to draw rectangles and triangles of variable sizes. 

3) Fill the screen with a pattern of adjacent squares, with no gaps 
between the squares themselves. 

4) Create several houses by shifting one house. 

5) Place four stars at random locations on the screen. 
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Graphics using repetition and recursion 


New language elements: 

LOCAL, IF, STOP 

Recursion, Recursion with termination, Comparisons 
Programs: 

POLYGON, Programs for circles, Arcs, ROSETTE, XPOLYGON, 
EMBROIDR (chaotic curves), CORNERS, NCORNERS 

DR LOGO for the Atari ST has vocabulary words for drawing not only 
rectangles but circles and ellipses as well. However, these vocabulary 
words are all used in the coordinate system for graphics, which is not 
discussed until Chapter 11. The main thrust of this lesson is an introduction 
to the topic of recursion using simple graphics procedures as examples. 
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7.1 From squares to circles 


After the execution of the procedure SQUARE, the turtle is returned to its 
original position: 

TO SQUARE :SIDE 

REPEAT 4 [FD :SIDE RT 90] 

END 

This is intended by the program, but it is not obvious that the four 
repetitions of a drawing instruction lead to a closed figure. How can we see 
this in the program text itself? 

First of all, this depends on the rotations themselves. Four rotations of 90 
degrees each mean a turtle rotation of 360 degrees—one complete 
revolution. Therefore the turtle has the same vertical alignment at the end of 
the procedure as it did in the beginning. But it’s possible that it won't result 
in a closed figure, since the turtle could have moved from its initial starting 
point. 

You must move the same distance down as you move up, and the same 
applies for movements right and left. All distances that the turtle travels 
must have the same length, so that the total results in a rotation angle of 360 
degrees. 

A complete revolution of the turtle can also be accomplished with a different 
number of rotations. A generalization of SQUARE is the program POLYGON: 

TO POLYGON : SIDE :N 

REPEAT :N [FD :SIDE RT 360/:N] 

Play around with your new LOGO word! 

POLYGON 60 3 
POLYGON 60 5 
POLYGON 60 6 


The POLYGON program yields regular triangles, rectangles, pentagons, 
hexagons, etc. 
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At this point we can make some interesting observations about polygons. 
Let's take another look at the equilateral triangle: 

POLYGON 80 3 

The procedure POLYGON makes a rotation of 360/3=120 degrees. In 
triangle geometry the rotation angle of the turtle is called the outer angle. 
The inner angle is 180 degrees minus the outer angle, or 60 degrees. From 
this we get the geometric rule that the sum of the inner angles of a triangle is 
180 degrees. 

We can use the following program to see what the procedure POLYGON 
produces when the number of its comers is increased: 

TO MANY.POLYGONS :SIDE :NMAX 
CS PU LT 90 FD 100 RT 90 PD 
LOCAL "K MAKE "K 2 

REPEAT :NMAX - 1 [POLYGON :SIDE :K MAKE "K :K+1] 
Try this out: 


MANY.POLYGONS 18 40 

A cone-like graphic should be drawn on the screen. 

This program contains some new language elements. 

The procedure has the name MANY. POLYGONS. The length of the name is 
unwieldy when we call the procedure, but long names have the advantage of 
being generally self-explanatory. The two words MANY and POLYGONS 
should actually written separately. 

We can't use a blank space, since a blank space is a separator in LOGO: 

MANY POLYGONS : SIDE :NMAX 

The procedure name is MANY in the above line. By contrast, POLYGONS is 
an input to MANY. 

The period in MANY. POLYGONS visually separates the two words. But 
LOGO sees the two words as a single word. Using the period as a 
non-separating separator is common in languages other than LOGO as well. 
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The underline character (_) is also often used for the same purpose. 

The second line of MANY. POLYGONS clears the graphics window. The pen 
is moved to the left so that there is enough room for the polygons. The third 
line contains a new LOGO word— LOCAL —which will be explained in the 
next section. 

The fourth line repeats the polygons (NMAX-1) times. NMAX represents the 
maximum number of sides with which POLYGON is called. Since the 
process starts with a two-sided figure, the repetition must be performed one 
fewer times. 

Since the number of sides becomes greater on the next call to polygon, the 
value of the current number of sides, K, increases by one in make "k 
: K+l. 

This draws polygons with 2, 3, 4, ... up to NMAX corners. The sides 
always have the same length. The circumference of the polygon therefore 
increases as its number of sides grows. 

It might occur to you that the limited resolution of the graphics screen 
causes some of the lines drawn to be less than straight. Even with a 
20-sided polygon it is all but impossible to identify all of its 20 comers. 
Because of the resolution, it is impossible to differentiate between a circle 
and a polygon with many sides. In practice, circles are actually created with 
regular polygons. 
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7.2 Structured programming with local names 

Let's investigate the meaning of the third line in the program 

MANY.POLYGONS: 

LOCAL "K MAKE "K 2 

The meaning of MAKE "K 2 is clear. The name K is supplied with the 
initial value 2. The procedure can also be written without LOCAL "K and 
the same drawing will result. You can see the effect of LOCAL "K has on 
the program if you enter PONS after calling MANY. POLYGONS— you won’t 
be able to find the name K. On the other hand, if LOCAL "K is omitted, 
you will find the name K with its valid value. 

LOCAL makes the name following it a local name. 

The name K is recognized only within the procedure where it is declared 
with LOCAL. Once LOGO has finished this procedure, the name is no 
longer available and is treated just like a procedure input. The difference lies 
in the fact that a procedure input receives a value when the procedure is 
called. But the name introduced with LOCAL is given a value with MAKE. 

What sense does it make to introduce local names with LOCAL? 

In the example of the procedure MANY. POLYGONS, it doesn't make much 
difference if K is treated as a local or a global name. However, you should 
use local names whenever global names are not required. That’s because the 
scope of local names is limited to the area where the names are required. 
There can be no conflicts and no unintentional confusion with names 
outside this area. The name K can then be used outside the procedure 
MANY. POLYGONS. Using the same name for a local variable does not 
disturb the other in the least. 
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On the other hand, if you use global names, you must carefully ensure that 
no conflicts occur when specifying names. 

Using local names allows modular, structured programming. 

The user of a finished procedure needs to know only the inputs and outputs 
required, if any. 

Global names that are no longer required are a sort of programming 
"garbage" that occupy valuable space in the system. There are no space 
problems in the short examples given so far, but using local names still 
makes sense in this context. 
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13 The turtle and " unstraight" lines 


Circles 

When a circle is displayed with polygons, the length of the sides of the 
polygon and the number of sides or comers N are predefined. N times the 
side length is then the circumference of the polygon. 

However, a circle is normally defined not by its circumference, but by its 
radius. To create a circle with a given radius from a polygon, the side length 
of the polygon used for the approximation must be calculated from the 
radius. The circumference of the circle is calculated from the radius R with 
2*7t*R. Therefore the required side length results from this: 

side length = 2*PI*R/N 

A program for circles can be formulated as follows: 

TO CIRCLE_1 :R :N 
POLYGON 2*PI*:R/:N :N 
END 

TO POLYGON : SIDE :N 

REPEAT :N [FD :SIDE RT 360/:N] 

END 

CIRCLE_1 is our first version of a circle program. Since the number of 
sides is still variable as an input value, experiment with the program: 

CIRCLE_1 70 360 
CIRCLE_1 70 72 
CIRCLE_1 70 36 

Having 360 sides takes the turtle a long time to complete—actually, 36 sides 
are enough to get a satisfactorily round circle. A second method uses 36 
sides. It differs even more from the first method in that when the procedure 
is called, the position of the pen is taken as the origin of the circle. 
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TO CIRCLE_2 :R 
PU FD :R RT 95 PD 
POLYGON PI*:R/18 36 
PU LT 95 BK :R PD 
END 

In the second line the turtle is first moved from the origin out to a point on 
the circle, and then rotated in the direction of the outline by 95 degrees. 
Compared to the first version, an additional initial rotation by 5 degrees is 
performed (the additional angle is exactly half of the angle then used for 
POLYGON with 10 degrees). Without this initial rotation, the circle would be 
shifted to the left a little. 

You can experiment with the program to find that the turtle would not end 
up at the origin as intended without this additional angle. The forward 
movement from the starting point to the circle must be made on a 
symmetrical axis with the polygon. Since the POLYGON program starts 
with a forward movement, the additional angle of 5 degrees is necessary. At 
the end the entire 360 degree revolution, it is completed with LT 95. 

Since the POLYGON procedure contains only one REPEAT line, you can 
also place it in the CIRCLE procedure. The following CIRCLE_3 version 
is then completely self-contained (the name S IDE replaces PI *R/18): 

TO CIRCLE_3 :R 

PU FD :R RT 95 PD 

LOCAL "SIDE MAKE "SIDE PI*:R/18 

REPEAT 36 [FD :SIDE RT 10] 

PU LT 95 BK :R PD 
END 
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Arcs 

Arcs (segments of circles) are even more interesting than whole circles in 
drawing programs, because they can be used as the standard for curve 
sections. It is relatively easy to make a program for arcs from the circle 
program. We can then draw right or left curves. 

The current position of the turtle indicates the start of the curve, which is 
why we really need two different procedures for left and right curves. Here 
we'll discuss only right curves, because you can easily draw left curves 
with the same procedure by converting all right rotations into left rotations. 

If a larger rotation angle of 10 or 5 degrees is used to speed operations up, 
as in the circle program, a small problem results. If the arc is the desired 
total rotation, then it is not an integer multiple of the rotation angle. For 
example, with a total rotation of 86 degrees, 80 degrees of the arc can be 
drawn as in the circle program. 

We have to write a special program section for the remaining 6 degrees. The 
angle division of 86=80+6 is accomplished with the integer functions 
QUOTIENT and remainder: 

(QUOTIENT :ANGLE 10) 

(REMAINDER :ANGLE 10) 

The first line returns the number of 10-degree steps. The second line returns 
the remainder of the angle. The parentheses are not really necessary here, 
but serve only to visually combine the three objects. Note that a single 
number results from this. Everything between the parentheses takes the 
place of a number—for example, here it is the number of repetitions. 

To determine the curvature of the line, either the radius of the circle or the 
side length of the pertaining polygon can be used. The side length is used in 
the following version: 
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TO ARC :SIDE :ANGLE 
RT 5 

REPEAT (QUOTIENT -.ANGLE 10) [FD :SIDE RT 10] 
RESTCURVE :SIDE/10 (REMAINDER :ANGLE 10) 

END 

TO RESTCURVE :SIDE :ANGLE 
FD :SIDE*:ANGLE 
RT :ANGLE-5 
END 

As with CIRCLE_3, the second procedure can be eliminated if the 
remainder of the right curve is created in the procedure RIGHTCURVE. 
Calling a separate RESTCURVE procedure is the more elegant solution. 
That's because passing REMAINDER : ANGLE 10 as input to a procedure 
ensures that it is evaluated only once. Including the procedure POLYGON in 
the CIRCLE_3 example instead introduces a local name (assigned a value 
with MAKE ). Such solutions are less elegant than typical LOGO programs. 

RIGHTCURVE can also be used to draw circles. But the angles must add up 
to an even 360 degrees: 

RIGHTCURVE PI*70/18 360 

This line draws a circle with a radius of 70 units. 


Figures with arcs 

With the aid of right and left curves we can create many intriguing figures. 
An example: 

TO SECTOR : SIZE :ANGLE 

REPEAT 2 [RIGHTCURVE :SIZE :ANGLE RT 180 :ANGLE] 
END 

TO ROSETTE :SIZE :ANGLE :N 

REPEAT :N [SECTOR :SIZE :ANGLE RT 360/:N] 

CIRCLE_3 :SIZE HT 
END 
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Try this: 


ROSETTE 15 80 9 


Or: 


ROSETTE 17 80 9 ROSETTE 25 40 18 



Figure 7.1 


The combination of right arcs with left arcs offers even more possibilities 
for graphic creations. 
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7.4 Repetition through recursion 


The graphics programs we have looked at so far all have a simple structure: 
a fundamental activity, consisting of a forward movement followed by a 
right rotation, and then a repetition of the basic step: 

FORWARD :SIDE RIGHT :ANGLE; BASIC STEP 

The words after the semicolon are not exactly LOGO words—they comprise 
a comment explaining the line. Commenting program text of short, simple 
programs is generally unnecessary if you use self-explanatory names in the 
program. 

However, sometimes you won't be able to figure out how an uncommented 
program works without a good deal of thought and testing. Comments in 
the program text help you decipher the meaning of the program. They have 
the advantage over other types of documentation in that they are always 
present in the program. 

The start of a comment is indicated with a semicolon and the end is 
designated by the end of the program line itself. All text that occurs in the 
line after the semicolon is viewed as a comment and is ignored by the 
LOGO system. Execution continues with the next program line. Accidental 
semicolons in the program text lead to improper execution. 

We previously accomplished the repetition of the basic activity with 
REPEAT: 

REPEAT 1000 [FD :SIDE RT :ANGLE] 

The repetition can also be implemented in the following manner: 

TO POLYGON_l :SIDE :ANGLE 
FD :SIDE RT :ANGLE ; BASIC STEP 
POLYGON : SIDE :ANGLE ; RECURSIVE CALL 
END 

The fourth line within the activity POLYGON calls a new procedure known 
as recursion. 
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Programs cannot only call other programs, they can call themselves. Check 
for yourself to see if the program POLYGON really works: 

POLYGON 70 60 

A regular hexagon results—even if the turtle keeps buzzing around on the 
hexagon. The desired repetition of the program's basic activity is achieved 
through recursion. 

The program can be halted with <Control>Z or by clicking Pause in the 
Run menu. While the program is halted, modifications can be made to the 
program text itself. Execution can be continued with CO or by clicking 
Continue in the Run menu. The LOGO system can also be paused by 
simply moving the mouse pointer to a menu on the menu bar. The program 
continues when you click in an area outside the opened menu. 

Since watching the turtle draw the same hexagon over and over again soon 
gets boring, end it with <Control>G. 

This simple example makes clear the effect of the recursive call: POLYGON 
instructs the LOGO system to restart the procedure ad infinitum. Intelligent 
applications of this simple method of recursion are restricted to repetitions 
where you and the program don't know the actual number of repetitions 
required. These simple recursions must always be halted externally. 
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7.5 Recursion with modified inputs 


Recursion works quite differently when a program calls itself with different 
inputs for each successive pass: 

TO POLYGON_2 :SIDE :ANGLE 
FD :SIDE RT:ANGLE ; BASIC STEP 
POLYGON_2 : SIDE+1 :ANGLE ; RECURSIVE CALL 
END 

The only change in this program from the one above is that the first input in 
the recursive call is no longer :SIDE but : SIDE+1. 

The easiest way to make this change is to enter the LOGO Editor: 

ED "POLYGON 

The text of the defined procedure POLYGON appears in the ED IT window. 
Add a . 2 extension to POLYGON (first and second-to-last lines) and insert a 
+1 after S IDE. After you exit the Editor with <Control>C, POLYGON_2 
is defined, leaving the old POLYGON procedure unchanged. 

Experiment with this program before you take a closer look at its structure. 
For example: 


CS 

POLYGON_ 

2 

1 

90 

CS 

POLYGON 

'2 

1 

60 

CS 

POLYGON 

'2 

1 

45 


The resulting figures quickly grow beyond the borders of the screen (which 
can lead to very interesting effects in the WRAP mode). Instead of 
terminating execution manually with <Control>G, YOU can also halt the 
program with FENCE. As soon as the pen is instructed to move outside of 
the screen, the program stops. 

CS FENCE POLYGON_2 1 120 

Repeat this input line with <Control>Y, and change only the angle input. If 
too many lines are drawn on top of each other, the fourth line can be 
changed so that the side is enlarged faster, something like : SIDE+2. 
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Now try it with angles that are not factors or multiples of 360: 

CS FENCE POLYGON_2 1 49 
Try to guess what will result from the following call: 

CS FENCE POLYGON_2 1 91 

You can now probably guess the shape resulting from an 89-degree angle. 

It is quite amazing to see the different figures that result simply by changing 
the angle in these programs. Such graphics can also be created without 
recursion, but recursion offers us very elegant programming solutions and 
possibilities. 

Now back to the recursive call itself. To understand exactly how a recursive 
program is executed, we can put the TRACE function to good use. Before 
the call, switch on the trace mode with TRACE and, if a printer is connected, 
enable it with COP YON. 

CS TRACE FENCE POLYGON_2 20 90 

In the DEBUG INFO window that opens you find the execution trace of the 
procedure calls: 

[1] Evaluating POLYGON 2 
[1] ANGLE is 90 

[1] SIDE is 20 

[2] Evaluating POLYGON_2 
[2] ANGLE is 90 

[2] SIDE is 21 
[2] Evaluating POLYGON_2 
[2] Evaluating POLYGON_2 
[2] ANGLE is 90 
[2] SIDE is 22 
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On each procedure in the trace mode, a line appears to indicate the 
execution of that particular procedure. The current values of the inputs are 
also printed. You can see that the recursion performs just as if the same 
procedure had been called with new, different input values. 

As a result, this simple type of recursion can be replaced by a different 
program construction: 

TO POLYGON_3 :SIDE :ANGLE ; WITHOUT RECURSION 

FD :SIDE RT :ANGLE 

END 

TO POLYGON.CALL :SIDE :ANGLE :N 

REPEAT :N [POLYGON_3 :SIDE :ANGLE MAKE "SIDE :SIDE+1] 
END 

Although we must specify the number of repetitions for REPEAT, for all 
practical purposes we can create the same infinite effect with a sufficiently 
high value of N: 

POLYGON.CALL 10 90 10000 

Activity repetitions without recursion are also called iterations of the 
activity. 

Repetition through recursion is an elegant but not mandatory solution. The 
incrementation of the step width S IDE is actually accomplished through the 
procedure call. Typical for iterative programming of the same task is using 
MAKE in POLYGON . CALL . 

The recursions previously discussed are very simple. A procedure calls 
itself again at the program end. This type of recursion is easy to understand 
and you shouldn't hesitate to use recursion for programming tasks of this 
type. Programming with recursion is a powerful tool, but for now we'll 
have to be content with an introduction to its simple forms. We'll discuss 
recursion in more detail later in the book. 
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7.6 Embroidery: chaotic curves 


What is the result of the simple program that follows? 

TO EMBROIDR :SIZE :N 
FD :SIZE (RT A :N) 

EMBROIDR :SIZE :N+1 
END 

The first result is an error message because the activity A in the second line 
is unknown. The procedure A's input is the value of the name N. It must 
produce a number as output, because it is used as input for RIGHT. The 
program EMBROIDR can produce quite different curves depending on the 
content of A: 


TO A :N 
OP :N 
END 

This procedure A simply echoes the input value as the result 
Now see what happens when you call the program with this: 

EMBROIDR 10 0. 

For the mathematicians among you, the procedure A produces a sequence of 
numbers. There are any number of examples for this, and also many 
variations of curves. 

Simple examples (only the output value of A is shown): 

a) OP :N * 10 b) OP :N * 10 +1 

C) OP :N * 10 +3 d) OP :N *10 +4 

e) OP :N * 7 f) OP :N * PI 

See what small changes in the factor can produce? The curves are even less 
predictable when more complicated formulas are used in the procedure A, as 
follow: 


g) OP :N * :N h) OP :N * SQRT :N 
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There is no limit to the experiments we can do here. The size of the resulting 
pattern can be controlled with the first input to EMBROIDR. The WRAP 
screen mode can also be used for special effects. 


Desk File Run Edit Settings 



Figure 7.2 

A note for the mathematically inclined reader: If the drawing plane is viewed 
as the plane of complex numbers, then the effect of EMBROIDR can be 
interpreted as the summation of complex numbers with the same value. 
Procedure A represents the phase of the complex number. This way of 
looking at the drawing plane also suggests that the turtle graphics could be 
used as a graphic method for the Fourier transformation. 


114 









Abacus Software 


ST LOGO User's Guide 


7.7 Termination with conditions 


Manual repetition of drawing programs by pressing a key may be useful if 
you don't have a clear idea of what the resulting picture will look like. 
Repetition with REPEAT designates the number of iterations beforehand. 
Generally, the execution of a program should be terminated when a certain 
condition is fulfilled.The simplest case is counting the repetitions, similar to 
the effect of REPEAT: 

TO POLYGON_4 :SIDE :ANGLE 
IF :SIDE > 100 [STOP] 

FD :SIDE RT :ANGLE ; BASIC STEP 
POLYGON_4 :SIDE+1 :ANGLE ; RECURSIVE CALL 
END 

The second line is new, with the form: 

IF ... [ . . . ] 

After IF comes a comparison: 

: SIDE > 100 

This comparison can end with the answer True or False. This can be 
demonstrated in the direct mode with an input line: 

1 > 100 Answer: False 

99 = 99 Answer: True 

4 < 1 0 Answer: True 

If the result of the comparison after IF is False, then the remainder of the 
program line up to the next RETURN is ignored. On the other hand, if the 
answer is True, the rest of the program line (the contents of the square 
brackets) is processed as usual. 

In the program example the LOGO word STOP follows in the square 
brackets. This is almost self-explanatory. If the result of the comparison is 
True, the execution of the procedure is terminated. If the activity was itself 
called from another procedure, execution continues with the calling 
procedure. 
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The LOGO word OUTPUT (abbreviated OP) has a similar effect. OUTPUT 
ends the procedure, but in contrast to STOP it outputs a result value. 
Whether the procedure is ended with STOP or OUTPUT depends on the task 
of the procedure in question. Naturally, the procedure is also ended when 
all the instructions have been executed, as in the simple graphics programs. 

Combined rectangles 

Repetition of forward movement followed by rotation can lead to very 
different figures: 

TO CORNERS :SIDE :ANGLE 
CORNER :SIDE :ANGLE :ANGLE 
END 

TO CORNER :SIDE :ANGLE :TOTAL 
FD :SIDE RT :ANGLE 

IF (REMAINDER :TOTAL 360) = 0 [STOP] 

CORNER :SIDE :ANGLE :TOTAL+:ANGLE 
END 

TO NCORNERS :SIDE :ANGLE 
NCORNER :SIDE :ANGLE :ANGLE 
END 


TO NCORNER :SIDE :ANGLE :CONTROL 

FD :SIDE RT :ANGLE RT :ANGLE FD :SIDE RT 2*:ANGLE 
IF (REMAINDER :CONTROL 360) = 0 [STOP] 

NCORNER -.SIDE :ANGLE :CONTROL+:ANGLE 
END 

The actual drawing programs are CORNER and NCORNER. CORNERS and 
NCORNERS are used only for easier calls. CORNER and NCORNER function 
recursively—the recursion is terminated because they always result in 
closed figures. 

Try a variety of different angles. Changing SIDE affects only the size, not 
the shape. You have to experiment to see which side lengths work best with 
a given angle. 
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Changing SIDE or ANGLE leads to spiral figures. The input size D specifies 
the spiral growth: 

TO SPIRAL :SIDE :ANGLE :D 
FD :SIDE RT :ANGLE 
SPIRAL :SIDE +:D :W :D 
END 

TO NETWORK :SIDE :ANGLE :D 
FD :SIDE RT :ANGLE 
NETWORK : SIDE :ANGLE+:D :D 
END 

More complicated figures can be obtained if the various polygons are 
combined with each other. 

TO DBLCRNRS :S1 :A1 :S2 :A2 :C 
SETH :C*:A1 FD :S1 SETH :C*A2 FD :S2 
DOUBLECORNERS :S1 :A1 :S2 :A2 :C+1 
END 

SI, A1 and S2, A2 are sides and angles of the two different polygons. 
Here the basic steps of the two polygons are alternately called. The C 
serves as the counter for the recursive repetition. 

Try these combinations of input values: 

(50 90 50 320 1) 

(50 90 50 300 1) 

(10 10 10 (-15) 1) 

(15 19 15 (-20) 1) 

These values should result in the graphics of Figure 7.3. 
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Figure 7.3 


Practice problems 

1) Write a program to draw concentric circles with increasing 
radii. 

2) Write a procedure SUN which creates a sun with sunbeams 
radiating out from it on the screen. 

3) Write the program MOONPHASES which draws moon 
crescents in various phases from full moon to new moon. 

4) Define the procedure ARCLEFT, similar to the program 
ARC. 
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Using the LOGO system 


New language elements: 

SAVE, LOAD, DIR, ERASEFILE, CHANGEF, BYE, SAVEPIC, 
LOADPIC, CLEARTEXT, CLEAN, CLEARSCREEN, RECYCLE, 
NODES, PACKAGE, POPKG, PKGALL, REMPROP, GLIST, 
BURY, UNBURY, SETPATH, File menu 


8.1 Working with diskettes 


The program examples we've looked at so far have been so short that you 
could easily type them in on the keyboard. However, you'll soon want to 
store the result of your programming efforts for later use. Also, a LOGO 
programming session might be interrupted before you have finished. Here 
again, you'll want to save your work for continuation in the next session. 

You can manage diskettes with the help of the File menu in the menu bar 
at the top of the screen. In addition, there are a number of LOGO commands 
available for this purpose. You can type in these LOGO activities on the 
keyboard in the LOGO DIALOGUE window, use of the mouse to select 
options from the Run and Edit menus. 

The File and Settings menus contain more than you might expect. 
Also, you have the choice of using the mouse or keyboard for entering data 
at your preference. Some view the mouse as just a gimmick, while others 
believe that it is an important step in the right direction of user-friendly 
computers. We lean toward the latter assessment. The best thing to do is to 
try out the two methods yourself. 

Saving 

The fundamental vocabulary of DR LOGO is stored on its own system 
diskette—on the Atari ST this is the Language Disk. This is stored in the 
RAM of the ST upon loading, making it unnecessary to reload the LOGO 
system from diskette over and over. The present LOGO system also 
contains the extensions resulting from programming—i.e. the procedures 
you have either written yourself or loaded from a disk. 
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All global names, together with their contents, also belong to the LOGO 
system. 

To save the part of the LOGO system not on the system disk, the LOGO 
procedure SAVE is used: 

SAVE "CIRCLE 

This command writes all data, including all language extensions and names 
defined at the current time, onto the disk currently in the drive. The name 
"CIRCLE indicates that the procedures we looked at the in the last chapter 
for drawing circles are to be saved. 

DR LOGO cannot overwrite an existing file on the diskette with SAVE. If 
the filenames match, an error message is generated. However, you may use 
the program SAVES from Chapter 18. This program renames the existing 
file and saves the current contents of the working memory as requested. 

If you want to save only part of the procedures or names resulting from a 
LOGO session, you can delete the unwanted parts. DR LOGO also allows 
packages to be "chained together." This means that certain procedures and 
names found in the working memory can be grouped together. These 
packages can then be saved separately. We’ll discuss the handling of 
packages later in a separate section. 

You should see what is actually present in memory before you use SAVE: 
POALL 

The output is easier to read if you list just the names and procedure names 
you need with: 


(POTS) PONS 

If POTS and PONS are used in lines one after the other, the first command 
must be placed in parenthesis. That’s because these LOGO words may also 
have inputs. The parenthesis prevent PONS from being interpreted as the 
input of POTS. 

You can delete data with the LOGO word ERASE (abbreviated ER): 

ERASE "CIRCLE.3 (abbreviatedER "CIRCLE.3) 
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This erases the procedure CIRCLE. 3. The following line: 

ERASE [CIRCLE.2 CIRCLE.3 ROSETTE] 
erases all the procedures listed. 

The global name TAX can be removed from the system with 
ERN "TAX 

Several names can be removed at once by placing them in square brackets. 
You can also erase all procedures or all global names at once with : 

ERPS (erase procedures) or ERNS (erase names) 

Note that all of the available information in the system can be saved at once 
with SAVE in LOGO. Therefore an interrupted LOGO session presents no 
problems. To pick up where you left off, just load in the information you 
SAVEd. 

SAVE "CIRCLE creates a LOGO file on the disk. The system 
automatically appends the filename extension . LOG to the filename if the 
name you selected does not contain more than eight characters. This is a text 
file for the GEM system. The contents of this LOGO text file can be viewed 
directly on the screen or sent to a printer without DR LOGO. 

Warning: When saving data on a diskette, the disk drive must be powered 
up, and have a non-write-protected disk inserted in it. If an error message 
still results when you try to save, you should use the option Retry with 
great caution. If a disk has been changed, the contents of the new disk can 
be lost as a result of a system error. Close the error window and start the 
saving process over. 
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Directory of existing LOGO files 

The following command lists the names of all the LOGO files on your 
diskette: 

DIR 

Lists can be recognized from their square brackets. Manipulating lists in 
your programs is discussed in later chapters. 

Reading from disk 

A LOGO file can be read with the procedure LOAD: 

LOAD "CIRCLE 

DR LOGO reacts to the loading procedure as it does to the transmission of 
program texts after editing. The individual procedures are announced as 
defined. Several LOGO files can be loaded in succession. 

The wildcard characters can be used when loading. The * character can 
replace the remainder of the filename. To disable its meaning as the 
multiplication character you must place a number sign in front of it. The 
question mark can replace individual letters in the filename; C???LE 
therefore matches CIRCLE. Wildcards are not used much because you have 
much more comfortable and direct control with the mouse and the file menu. 

Deleting and changing entries on the disk 

The LOGO file CIRCLE. LOG can be erased with 
ERASEFILE "CIRCLE 

However, note that DR LOGO does not request any confirmation for 
ERASEFILE —so use this command with caution. 

Before you delete a file permanently with ERASEFILE, it can be stored 
under a different name to be on the safe side. 

CHANGEF "CIRCLOLD "CIRCLE 

The old file then receives the name CIRCLOLD. 
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You can also write: 

CHANGEF "CIRCLE.OLD "CIRCLE 

The three characters OLD are then written behind CIRCLE as the extension 
(instead of LOG). The DIR command does not list this file, so 
CIRCLE. OLD has been sent to the reserves, so to speak, and can be called 
up if needed. 
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8.2 Working with the File menu 

Load... 

If you move the mouse pointer to the File menu, the menu opens up. 
After clicking Load..., a large window with the title ITEM SELECTOR is 
displayed in the center of the screen. There you find the directory of all files 
(and possibly directories) which end in .LOG. If the window is not big 
enough for the entire directory, you can scroll down or up by clicking the 
arrows or shaded rectangle at die right edge of the window. 

The name in the directory is clicked to select a certain file. The selected 
filename then appears in reverse video and displayed in the line under 
Selection. You can also write it there on the keyboard. The loading 
starts when you click OK. The entire menu option can be terminated by 
clicking the Cancel button. 

The fastest method is to move the mouse pointer over the desired filename 
and double-click it—it is then loaded immediately. 

Save as... 

This option writes the contents of the working storage to diskette. The same 
window that appears for Load... and Delete... opens. You could select a 
name from the directory, but his is not a wise thing to do—this terminates 
the process with an error message File already exists. You can 
change the filename with the keyboard. 

Save 

This menu option is available only when it appears in black in the menu. In 
contrast to Save as..., no filename need to be selected and no windows 
open. 

Save is used when the contents of the file in working memory has already 
been assigned a name. For example, if you first read in a file with Load 
and then change some procedures or names, you can save the file with its 
corrections under the same name using Save. 
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Delete... 

This option is used to erase entire files from the disk. The selection of files 
to be erased is done as with the Load... option. 

Quit 

QUIT informs DR LOGO that its services are no longer needed. DR LOGO 
requests a confirmation of this option. After your OK, the GEM desktop 
appears on the screen of the monitor. LOGO can also be terminated with the 
command: 

BYE 

The reaction is the same as for the Quit option. 


What are the differences between using the File menu and using the 
corresponding LOGO commands such as SAVE, LOAD, DIR, etc.? 

• The File menu can be used only in the direct mode, since 
you have to be sitting at the computer and using the mouse. 

• The LOGO commands SAVE, LOAD, etc. can be used in the 
direct mode as well as under the control of a program. The 
directory can be produced as output by DIR and then used for 
other LOGO commands. 

• The File menu is very easy to use provided that the loading 
and saving processes are not to be controlled by the program. 
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Additional disk operations 

Disks must be formatted outside of LOGO before they can be written to. At 
the GEM desktop (displayed after booting the TOS operating system or 
exiting DR LOGO) you also find a menu called File. One of the options in 
this menu is called Format. 

Files can be copied from one disk to another by clicking the icon (symbolic 
picture) of the floppy disk, selecting with the mouse the files you want to 
copy, holding the mouse button down, and then dragging them to the 
second drive's icon. An entire disk can be copied by dragging the symbol 
for one floppy disk to the target icon, by holding the mouse button down. 
The GEM operating system also offers you the option of putting several 
files into a single folder. A folder is placed on the desktop with the menu 
option New folder. You can move files into it using the mouse. When 
you display the directory of the disk on the screen with the Load option in 
the File menu, you also find such folders, designated by a special symbol 
on the left. When you click a folder, its corresponding directory appears on 
the screen. 
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8.3 Loading, saving and printing graphics 


You probably noticed that the menu options Load Pic... and Save Pic... 
were not discussed in the previous section. They let you save the contents 
of the GRAPHICS DISPLAY window to disk and then load these graphics 
from disk again. 

Load Pic... and Save Pic... function like Load... and Save as..., 
except they work only with special graphic files are designated with the 
filename extension .PIC. This designation is automatically appended when 
you save a graphics screen. 

When you load a graphic screen, the size and position of the graphics 
window are set as they were when the picture was saved. 

There are also corresponding LOGO commands for the same purpose: 

SAVEPIC "ROSETTES and LOADPIC "ROSETTES 

Because of the ST’s high-resolution graphic capabilities, it is useful to be 
able to save graphic screens to diskette. A great deal of information is 
contained in a graphic at high resolution. The corresponding files take up a 
lot of memory—you have to wait several seconds when loading or saving 
pictures. 

You can get the directory of the graphics stored on diskette by selecting 
Load Pic... or Save Pic... from the File menu. If you want to output 
it with DIR you can enter: 

DIR "#*.PIC 

(Don't forget the number sign in front of the multiplication sign!) 

To print graphics you can use the hardcopy feature of the operating system 
by pressing the key combination <AltematexHelp>. 

However, note that you must set up your printer before you print your 
LOGO graphics. To do this, select the Install Printer option from 
the Desk menu. For an Epson printer you must select 960 dots per line. 
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8.4 Erasing 


Clearing the screen 

When you fill the LOGO DIALOGUE window with inputs and system 
replies, you soon reach the bottom of the window. When you need 
additional lines, the entire contents of the screen are moved up a line to 
make room at the bottom. This is called scrolling. 

Since it can be annoying when the screen is full of old information, the text 
screen can be cleared with the LOGO word: 

CLEARTEXT or CT 

The graphics window can be cleared with: 

CLEAN 

CLEAN has no consequences except to clear the LOGO GRAPHIC window. 
If you also want to return the turtle to its original position (including its 
"northern" orientation), you should instead use: 

CLEARSCREEN or CS 

Deleting programs 

The memory space in your ST is limited, regardless of how big the 
salesman made it out to be. And because of LOGO'S many capabilities, the 
LOGO system also needs a good deal of free memory space. On the other 
hand, you can write very short programs in LOGO. With all these 
conflicting factors, you may still find yourself running short of memory. 

When procedures are edited and new versions placed in the LOGO system 
under different names, a number of programs that you no longer need can 
accumulate over time. When space becomes tight, you should first get an 
overview of the procedures in memory with POTS (PO TITLES), to figure 
out which procedures are unnecessary. They can be removed with: 

ERASE "procedure_name 
or ER "procedure_name 
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The procedure name must be preceded by a quotation mark. Several 
procedures can also be erased at die same time by putting their names into a 
list enclosed in square brackets: 

ERASE [CIRCLE TAXES ROSETTE] 

This deletes CIRCLE, TAXES, and ROSETTE. 

Global names can be erased with: 

ERN "NAME 

Note that the quotation mark is necessary. All of the global names can be 
erased at once with: 

ERNS 

Generally names will not take up much room until you use more 
complicated lists. Global names should be used only where they are 
absolutely necessary and cannot be replaced by local names. 

Garbage collection 

The LOGO system creates garbage—internal allocated memory space that is 
no longer required. It is not economical for the system to check at each step 
to see what memory space can be released. However, you can force a 
"garbage collection" with the command: 

RECYCLE 

Before you delete anything with ERASE, you should first try to free up 
memory with a RECYCLE garbage collection. The garbage collection called 
by the system itself can create frightening operational pauses. RECYCLE lets 
you control the time of the pause yourself. 
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Free space 

You can determine the amount of free space left in the LOGO system at any 
time with the command: 

NODES 

A node can be thought of as the basic unit in LOGO data structures—the 
programs and names managed by LOGO. You have to learn through 
experience what the outputted number means, and how it relates to the 
programming you can still do. If a number over 12000 is outputted, then 
there is still a lot of space of free. When 100 free nodes are indicated, then 
memory space is getting tighter. To get valid information about the actual 
memory usage, you should first issue a RECYCLE. 
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8.5 Self-loading program files 


User programs consist of multiple subprograms. It makes sense to be able 
to have an entire program package load automatically. When DR LOGO is 
first loaded, it searches for a file called STARTUP. If STARTUP is present, 
LOGO loads it automatically. If you want to load a set of programs 
automatically after the LOGO system startup, you can save these programs 
(and names as well) under the special designation STARTUP. 

This option makes sense only for programs that are ready to be used. You 
can store often-used language extensions together on the disk so you don't 
have to find and load these programs every time you start the system. 

Other LOGO versions offer additionally or alternately the ability to 
automatically start a program after loading it. In DR LOGO a start procedure 
must be called explicitly. You can of course make a habit of providing larger 
program packages with a procedure with a set name (such as STARTUP) 
with which the program can then be started. 
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8.6 Working with two drives 


The drive you used to load DR LOGO is used as the default drive for the 
commands LOAD, SAVE, ERASEFILE, etc. If you want to use a second 
drive, you must name it explicitly. 

DIR "B: 

All LOGO files on the diskette in drive B (second drive) will be printed. 
SAVE "B:CIRCLE 

This command saves the working memory to the diskette in drive B under 
the filename CIRCLE. LOG. 

LOAD "B:TAXES 

This command loads the LOGO file TAXES from drive B. If the filename is 
longer than six characters, a backslash must be placed before the filename. 

ERASEFILE "A:\ELLIPSE 

The LOGO file ELLIPSE is deleted from the disk in drive A. 

It is also possible to make all subsequent disk operations refer to the named 
drive with: 


SETPATH "B: 

This command relieves you of typing the drive specifier in front of the 
filename every time. 
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8.7 Making and saving packages 


Many procedures and names can end up in the working memory during the 
course of a LOGO programming session. Even if you don't program much 
yourself, many user-defined terms can be added as a result of loading 
existing LOGO files. Often you may want to store just part of the working 
storage on the disk. One solution is to remove all of the items from memory 
that you don't want to save, using variations of the ERASE command. 

DR LOGO offers a more elegant solution to such problems. Parts of the 
workspace can be gathered together into packages . LOGO commands like 
SAVE, ERALL, and so on, which usually refer to the entire workspace, can 
be applied to a certain package or group of packages. 

A package is created with the LOGO word PACKAGE. The first input is the 
package name. The second specifies the contents of the package. This can 
include procedure names as well as global names. The names must be 
enclosed in square brackets: 

PACKAGE "TAXES [TAX SALESTAX TOTAL] 

You can also place only defined names in a package. PACKAGE can be 
repeated for the same package to add additional names to the package. If a 
name is to be placed in a new package, it must first be removed from the old 
package. 

You can also see what a package contains: 

POP KG "TAXES (PRINTOUT PACKAGE TAXES) 

Procedures are listed with their title line. Global names are designated as 
such. 

Everything currently not assigned to a package can be gathered into a new 
package with: 


PKGALL 

It's also possible to remove an item from a package without putting it into 
another package. Whether or not a name belongs to a package is one of its 
properties. Anticipating the discussion of property lists in Chapter 18, we 
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will say here how the affiliation of a package is removed from the property 
list of die name: 

REMPROP "TAX ".PAK REMPROP "TOTAL ".PAK 

The package extension (property . PAK) is removed from the global name 
TAX and the procedure TOTAL. 

POPKG "TAXES 

Now TAX and total no longer appear in the contents of package TAXES. 

Now you know how packages are created and deleted. But what can we do 
with them? 

The following commands can refer to special packages: 


EDALL 

Edit workspace 

EDNS, EDPS 

Edit name or procedure 

ERALL 

Clear workspace 

ERNS 

Delete global names 

ERPS 

Remove procedures 

GLIST, PPS 

See property lists 

LOAD, SAVE 

Load/save files 

POALL 

Output workspace 

PONS 

Output global names with contents 

POPS 

Show procedures in dialog window 

POTS 

Output title line of the procedures 

BURY 

Hide 

UNBURY 

Find again 


The following command displays in the dialog window just the contents of 
the package TAXES, instead of the contents of the entire workspace: 

POALL "TAXES 

Several packages can also be addressed at once. Their package names are 
combined into a single list with square brackets: 

POTS [TAXES CIRCLE] 
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If you are working with only a section of the workspace, you’ll get a better 
overview if you set up a separate package for it. That way the dialog 
window won't fill up with outputs you're not interested in at the moment. 

At the beginning of this section we talked about placing just part of the 
workspace on disk without having to delete the unwanted parts. If SAVE 
receives a package name or a list of package names as a second input, then 
just contents of the listed packages are saved: 

SAVE "CONTROLP "TAXES 

A special application is storing global names separately under their own 
filenames. To do this, all of the global names must be gathered into a 
package. PACKAGE then needs a list of the global names as its second 
input. PONS gives you all the information about the global names, but not 
the desired list 

The LOGO word GLIST can be used for this: 

GLIST ".APV 

The above outputs all of the global names as a list. In the following line, the 
package GLOBAL is composed of the all the global names: 

PACKAGE "GLOBAL GLIST ".APV 

GLIST is again an item from the property lists—here it's the property . APV 
(value of a global name). The global names are saved to their own file with: 

SAVE "VARIABLE "GLOBAL 

If the same is to be done for just the procedures, the property . APV should 
be replaced with . D EF. 

If a package name is used as the second input of LOAD, the contents of the 
file read are placed in the package named as such. The assignment to a 
package is included when the names are saved to disk. Packages therefore 
are chained together, provided you do not abolish the assignment. 

Package names can be used in this manner for managing data. We will 
briefly go into such applications in Chapter 18. 
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Finally we should clarify the meaning of BURY and UNBURY. BURY lets 
you hide packages—that is, a set of LOGO commands can no longer access 
them. UNBURY brings them back to full access again. Buried packages are 
protected against erasing. 

BURY "TAXES 

The command line above assures that the package "taxes can no longer be 
deleted. The protection must first be removed with UNBURY "TAXES. The 
"burial" of the taxes package is also indicated when you create a list of 
the existing packages with POPKG. 

POPKG 

Answer: TAXES is buried . . . 

Truly a radical tax reform! 

Incidentally, the package will be "invisible" to a certain degree. SAVE does 
not save buried packages. In addition, buried packages are invisible to the 
following LOGO commands: POALL, POPS, PONS, POTS, PPS, GLIST, 
ED ALL, EDNS, and EDPS. 

BURY lets you place utility programs, in the background, for example. If 
you store a package of often-used programs in the STARTUP file of the 
language disk, it will be loaded automatically when LOGO is started. The 
packages then remain in the background and work much like functions from 
the basic vocabulary. 
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Words and Lists 


New language elements: 

ITEM, COUNT, PIECE, SENTENCE, WORD, SHOW, FIRST, 
BUTFIRST, LAST, BUTLAST, EMPTYP, FPUT, LPUT, 
MEMBERP, WHERE, NUMBERP, WORDP, LISTP, EQUALP, NOT, 
SORT, SHUFFLE 

Programs: 

DISASSEMBLE, BABBLE, WEDGE, MIRROR, 

MIRROR.SENTENCE, DADA, STUTTER, LOTTO, DRAWING, 
BALLS 


9.1 Strings as words 


In any language, sentences are formed from words, while words 
themselves are made up of letters. Further combinations of the alphabet 
letters are produced with punctuation marks like commas, periods, 
semicolons, quotation marks, etc. The keyboard of your computer contains 
a large number of punctuation marks in addition to the letters and the ten 
digits. Some characters have special meanings for the computer. 

Any sequence of characters, letters, digits, and punctuation 
marks is a word in LOGO. 

Examples: "SUN 

"COMPUTER 
"3.14159 
"«. .» 

Only the first two examples are proper words in normal English. But in 
computer languages, the primary consideration is not the intrinsic meaning 
of a character combination, but strict observance of the language rules. 

All words begin with a preceding quotation mark. The quotation mark does 
not belong to the word itself when it is preceding. It only signals that the 
characters following it form a word. 
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We can easily check with PRINT what LOGO accepts as a word: 

PRINT "SUN 
PRINT ""HOORAY" 

PRINT "TWO WORDS 

In the first example SUN appears on the screen, and in the second 
"HOORAY" appears. The third example results in an error message: 

I don't know how to WORDS 

TWO was recognized as a word, but WORDS was interpreted as a procedure 
name. The error message indicates that such an activity is unknown. 

The start of a word is indicated by a quotation mark, which does not 
belong to the word itself. All characters up to the next separator are 
included in the word. 

The space serves as a separator in LOGO. The end of a line also has the 
same function. 


(PRINT "TWO "WORDS ) 

This will correctly print TWO WORDS. The parenthesis are necessary 
because PRINT usually expects just one input. Note that the closing 
parenthesis does not represent a separator. The space behind WORDS is 
necessary to indicate the end of the word. 

A blank space is not allowed as a character within a word, as in natural 
languages. However, it is possible to disable the separating action of the 
space. To do this, a number sign must be placed in front of the space: 

PR "TWO# WORDS 
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9.2 Sentences as lists 


A complete sentence can be formed out of words, where the words are 
separated from each other by spaces. 

A sequence of words separated by spaces is a simple example of a list in 
LOGO. Lists are enclosed in square brackets, which do not themselves 
belong to the list but simply specify the start and end of the list. 

[TODAY IS SUNDAY] 

[10 25 27 31 32 46 ] 

The first list consists of three words, and the second consists of six. A list 
can be printed in its entirety: 

PRINT [TODAY IS SUNDAY] 

DR LOGO'S answer is as expected: 

TODAY IS SUNDAY 

The square brackets are not printed. The same result could be accomplished 
with this: 


(PRINT "TODAY "IS "SUNDAY ) 

But the method using the list is clearly preferable. 

We cannot tell from the output whether several words were printed in 
succession, or if a list composed of several words was printed. If you want 
an output onscreen indicating that it is a list, you can use the LOGO 
procedure SHOW instead of PRINT. 

SHOW [TODAY IS SUNDAY] 

The square brackets are then printed along with the text to indicate that the 
output is a list. 

We can do more with lists than just print them out—there is a whole set of 
LOGO words for working with lists. 
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For example, a list can be assigned a name. The name itself is a word: 

MAKE "LIST1 "[TODAY IS SUNDAY] 

After this, the list [TODAY IS SUNDAY] is available under the name 
LISTl: 

PRINT :LISTl 

Note the colon in front of LISTl, which indicates the contents of the 
drawer with the name LISTl are intended—in other words, print the value 
Of LISTl. 

Words can be associated with names in precisely the same manner: 

MAKE "ANTI "ANTIDISESTABLISHMENTARIANISM 

This line provides an abbreviation for this long word. 

The first time we encountered lists was with the LOGO word REPEAT: 

REPEAT 10 [PRINT 1+RANDOM 6] 

A list can therefore contain procedure names as well. The specified REPEAT 
list can also be given a name and then used under this name: 

MAKE "REP.LIST [PRINT 1+RANDOM 6] 

REPEAT 10 :REP.LIST 
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9.3 Sentences of sentences: Hierarchical lists 


Sentences can be formed from words. Many sentences make up a chapter, 
many chapters a book, and many books a library. 

In this manner a hierarchy is constructed from the basic unit of a word. A 
library allows you to search for the 500th book, the seventh chapter of this 
book, the third sentence of this chapter, and the second word of this 
sentence. Each entity (book, chapter, sentence, word) can be accessed 
independently. 

The result of this hierarchy with words is called a list. The sentences in the 
list for the text output with PRINT and REPEAT lines represent the next 
higher level after words in the hierarchy. Our ability to construct a hierarchy 
of multiple levels makes the list a powerful computing tool. 

We will look at more complicated list structures later. First the important 
operations with lists and words are explained by means of simple examples. 
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9.4 Disassembling lists and words 


Lists and words can be manipulated as desired in a program. Basic 
operations for assembly and disassembly are necessary for this. These 
operations can be applied to lists as well as words. 

Words and lists can be disassembled into their individual components just 
as a sentence can be divided into individual words. A word can be divided 
into individual letters. The ITEM function allows us to access a specified 
word or list: 

MAKE "SENT1 [TODAY THE SUN IS SHINING] 

ITEM 2 :SENT1 
Answer: THE 

The item function also returns a given character in a word: 

MAKE "ANTI "ANTIDISESTABLISHMENTARIANISM 
ITEM 10 :ANTI 
Answer: T 

It is possible that a desired element does not exist because the list is too 
small or the word is too short: 

ITEM 6 :SENTl 

This results in the following error message: 

Too few items in [TODAY THE SUN IS SHINING] 

The number of available elements can be determined by the LOGO function 
COUNT. 

COUNT :SENTl 
Answer: 4 

COUNT :ANTI 
Answer: 28 
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Forward and backward disassembly 

With our present knowledge we can write a small procedure which 
disassembles a list into all available elements and then prints the elements. 

TO DISASSEMBLE :OBJECT :N 
IF :N > COUNT :OBJECT [STOP] 

(PR :N ITEM :N :OBJECT) 

DISASSEMBLE :OBJECT :N+1 
END 

The procedure DISASSEMBLE calls itself recursively to determine the next 
element. The procedure is terminated in the second line when the number of 
elements has been exceeded by the variable N. 

DISASSEMBLE :SENT1 1 
LOGO replies with: 

1 TODAY 

2 THE 

3 SUN 

4 IS 

5 SHINING 

The variable N is outputted in the third line of DISASSEMBLE for easier 
reading. For ANTlDIS...etc. we start with the 25th element: 

DISASSEMBLE :ANTI 25 
Answer: 25 N 

26 I 

27 S 

28 M 

The following program writes a list or a word on the screen, but reverses 
the order of the elements: 

TO BACKWARD :OBJECT :N 
IF :N = 0 [STOP] 

TYPE ITEM :N :OBJECT 
BACKWARD :OBJECT :N-1 
END 
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When used on words like the following, the mirror image of the word 
appears on the screen 

BACKWARD :ANTI COUNT :ANTI 

The result is output with TYPE so that the individual elements are written 
one right after the other. 

Also note the input. The object is disassembled from the end of the list, 
starting with the element whose number is specified by the second input of 
BACKWARD. This is why the result of the function COUNT is passed as the 
second input value. 

If you want to write a list such as SENT1 backwards, it might be a good 
idea to put spaces between the individual elements. The third line of 
BACKWARD can be modified to do this as follows: 

(TYPE ITEM :N :OBJECT "# ) 

After the call BACKWARD :SENT1 COUNT : SENT 1, the following 
should appear: 

SHINING IS SUN THE TODAY 

PIECES of words and lists 

ITEM fetches exactly one element from a word or list. However, you'll 
sometimes want to find a fragment of a word or list. ST LOGO offers a 
separate word for this purpose: 

PIECE 8 16 :ANTI 
Answer: ESTABLISH 

PIECE outputs a portion of the specified list or word. The first two inputs 
of PIECE specify the start and end of the piece, or fragment. 

DR LOGO also considers numbers as words. You can test this yourself: 

PIECE 3 7 PI 
Answer: 14159 
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Here the third through seventh characters in the word 3.141592—the 
number PI—are selected. Note that the decimal point is also counted. 

Try this with a list as input: 

PIECE 2 3 :SENT1 Answer: [THE SUN] 

The outer brackets indicate that the result is a list 

The following is a hierarchical list on the next higher level, i.e. a list 
composed of sentences: 

MAKE "SECTION 

[[TODAY IS SUNDAY] [THE WEATHER IS TERRIBLE] 

[I DON'T WANT TO GO] [WE ARE WAITING FOR HIM]] 

PIECE 2 3 :SECTION 

PIECE outputs the second and third sentences as its result: 

[THE WEATHER IS TERRIBLE] [I DON'T WANT TO GO] 
Note the difference between the results of item and PIECE: 

• PIECE outputs the same result as the third input. A piece of a word 
results again in a word, and a piece of a list is again a list 

* In contrast, the result of ITEM is a component element. We are 
moving one step down in the hierarchy. A word results in a 
character, a sentence in a word, and a "paragraph" results in a 
sentence. 


149 



Abacus Software 


ST LOGO User’s Guide 


9.5 Combining words and lists 


Sentences 

The procedure BACKWARD disassembles a sentence from back to front, and 
from it a new sentence is constructed on the screen. Nothing more can be 
done with this new list, however, since it exists only on the screen. 

The LOGO word SENTENCE (abbreviated SE) is used to construct a new 
sentence, i.e. a list of words: 

SENTENCE "HELLO "WORLD 

This creates a list of two words, the sentence HELLO WORLD. LOGO 
answers with: 


[HELLO WORLD] 

The square brackets indicate that the result is a list. 

SENTENCE (SE) normally expects two inputs. If a sentence is composed of 
more than two words, the procedure name and the inputs must be enclosed 
in parenthesis: 


(SENTENCE "TODAY "THE "SUN "IS "SHINING) 
Answer: TODAY THE SUN IS SHINING 

Personalized salutation 

TO MR :NAME 

OP SE [DEAR MR.] :NAME 
END 

TO MRS :NAME 

OP SE [DEAR MRS.] :NAME 

END 

Call: PRINT MR "LOGOMASTER 

Answer: DEAR MR. LOGOMASTER 
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To clarify this we will repeat the call with SHOW instead of PRINT: 

SHOW MRS "SMITH 
Answer: [DEAR MRS. SMITH] 

SHOW outputs the outer parentheses, indicating the output of both MRS and 
MR is a list. This involves a special form of the list, namely the procedure 
SENTENCE. The first input is itself a sentence and the second is a word. 

Now enter SHOW MR [ LOGOMASTER ]. Here too a sentence is outputted, 
even though the second input is not a word but a list. 

If an input to SENTENCE is a list instead of a word, LOGO then "removes" 
the outer brackets only. 

Words 

Words can be formed with the LOGO procedure WORD just as sentences can 
be formed with SENTENCE: 

SHOW WORD "HALLE "LUJAH 

LOGO responds with HALLELUJAH. Since this is actually a word and not a 
list, no brackets are printed if SHOW is used to output the word. Since a 
single word is output, there is only one element, and correspondingly no 
separating spaces. 

As with SENTENCE, parentheses must be used if more than two inputs are 
combined into a word: 

(WORD "ANTI "DISESTABLISHMENT "ARIANISM) 

Language applications can be found for this: 

I go, you go, he goes, we go, you go, they go. 

Every verb in the sentence above has a verb of the basic form "to go." The 
irregularities in natural languages make it difficult to program something like 
this for any verb. 
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TO PLURAL -.SINGULAR 
OP WORD :SINGULAR "S 
END 

Call: PRINT PLURAL "STREET 
Answer: STREETS 

Forming plurals is not as easy as this either, because the PLURAL program 
yields the correct form for only a certain class of nouns. 

Since numbers are also viewed as words by LOGO, you can also construct 
numbers with WORD: 

(WORD 3 ". 14159) 

Answer: 3.14159 

Manipulation of words and numbers in LOGO offers more than you might 
first guess. LOGO words themselves, including those from the basic 
vocabulary as well as those defined through procedures, are words. The 
program text of the procedure is a list. This has far-reaching implications for 
program manipulations under program control. This is discussed in Chapter 
17. 

Several parts of words and lists can be combined with the combination of 
WORD or SENTENCE with PIECE: 

WORD PIECE 1 4 :WORD PIECE 27 28 
Answer: ANT ISM 


or: 

(SE PIECE 1 3 :SENT1 [WILL SHINE ALL DAY] PIECE 3 4 :SENTl) 

Answer: today the sun will shine all day 
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9.6 Random sentences 


Simple programs can create amusing results with random numbers. A 
program that creates proper English sentences with correct grammatical 
construction would be complicated if you allowed a large number of 
grammatically possible sentence constructions. We will limit ourselves to 
the simple construction of sentences of the following type: 

Debbie goes home crying. 

It becomes more difficult when the noun is plural or different tenses are 
used, for instance. 

TO BABBLE 

PRINT (SE SUBJECT VERB PLACE ADVERB) 

END 

This is an outline program that sets the structure: subject, verb, adverbial 
determination of the place, adverbial determination of the manner. 

The sentence is created through the outputs of the procedures SUBJECT, 
VERB, PLACE, ADVERB. 

TO SUBJECT 
OP "DEBBIE 
END 

TO VERB 
OP "GOES 
END 

TO PLACE 
OP "HOME 
END 

TO ADVERB 
OP "CRYING 
END 

These aren't very exciting procedures, because they only output one word. 

But even such simple procedures can be useful. They can be used to avoid 
having to assign global names with MAKE. For procedures, you simply give 
the procedure name itself. 
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However, a name like SUBJECT would be assigned the word DEBBIE 
with this: 


MAKE "SUBJECT "DEBBIE 

The value of SUBJECT—: SUBJECT —must be used. 

We could make any or all of the sentence components lists instead of 
words. The when BABBLE is called, SENTENCE would remove the outer 
square brackets. For instance, in this manner the subject of the sentence 
could be composed of several words: 

TO SUBJECT 

OP [POOR SWEET DEBBIE] 

END 

Now the following appears on the screen after you input BABBLE: 

POOR SWEET DEBBIE GOES HOME CRYING 

An alternative method would be to form a single word from several words 
by interpreting the blank spaces as normal characters, rather than separators. 
We can do this by placing a number sign in front of them: 

"POOR# SWEET# DEBBIE# 
instead Of [POOR SWEET DEBBIE] 

So far we haven't seen any babbling—only one sentence was formed. The 
procedures for sentence components should have a set of different answers 
to choose from at random: 

TO SUBJECT 

OP ITEM 1+RANDOM 10 [HARRY [POOR SWEET DEBBIE] 

[THE FEDERAL GOVERNMENT] [AN ELEPHANT] [THE CAR] 
HE SHE IT 

[THE DACHSHUND] GEORGE] 

END 
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BABBLEing should produce many sentences now: 

TO BABBLE 

PRINT (SE SUBJECT VERB PLACE ADVERB) 

BABBLE 

END 

Now something like this might appear on the screen: 

THE FEDERAL GOVERNMENT GOES HOME CRYING 
AN ELEPHANT GOES HOME CRYING 
SHE GOES HOME CRYING 

As for the subject, the other sentence components must be provided with 
procedures having a set of answers, so that we get some real variety in the 
story: 

TO VERB 

OP ITEM 1+RANDOM 8 [GOES SCREAMS RUNS 
EXPLAINS SLEEPS LAUGHS ROLLS SITS] 

END 


155 



Abacus Software 


ST LOGO User’s Guide 


9.7 Dividing lists and words 


Individual elements can be removed from lists or words with ITEM, by 
specifying the number of the element in question. The LOGO word PIECE 
lets you remove entire fragments of words and lists. 

Another type of LOGO division is the separation of an element at the 
beginning or end of a list or word. 

We'll define a test list as a procedure to try this out: 

TO TEST 

OP [LOGO IS A GREAT LANGUAGE] 

END 


Now enter: 


PR FIRST "AUTO 
PR FIRST TEST 
PR LAST "BICYCLE 
PR LAST "TEST 

PR BUTFIRST "AUTO 
PR BUTFIRST TEST 
PR BUTLAST "BICYCLE 
PR BUTLAST TEST 

Answers: 

A 

LOGO 

E 

LANGUAGE 

UTO 

IS A GREAT LANGUAGE 
BICYCL 

LOGO IS A GREAT 
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The effect of these LOGO words are as defined below: 

• FIRST outputs the first element of a list (or the first character 
of a word) 

• LAST outputs the last element 

• BUTFIRST (abbreviated BF) yields everything but the first 
element of the list 

• BUTLAST (abbreviated BL) yields everything but the last 
element. 

• The LOGO words FIRST, LAST, BF, and BL have one 
input, which must be either a list or a word. 

These commands are more comprehensive than they may appear at first 
glance. 


PR LAST BL TEST 

PR FIRST LAST BL TEST 

PR BUTLAST BUTLAST BUTLAST TEST 

Thes commands are especially effective when combined. You can use 
arbitrary combinations of commands to remove elements from the beginning 
and end of a list 

The chaining in the first example means: 

First the last element of the list (generated by the procedure TEST) is 
removed with BUTLAST. The [LOGO IS A GREAT] remains. 
LAST then removes the last element from the remainder and outputs 
the second-to-last word of the original list: GREAT. 

Chaining operations are especially effective in recursive procedures: 

TO WEDGE :OBJECT 
PR :OBJECT 
WEDGE BF :OBJECT 
END 
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WEDGE "ELEPHANT results in the following: 

ELEPHANT 

ELEPHAN 

ELEPHA 

ELEPH 

ELEP 

ELE 

EL 

E 

It also yields the error message: 

BF doesn't like an empty 
word as input IN LINE: 

WEDGE BF :OBJECT 

The error message means that BF (BUTFIRST) has encountered an 
indivisible object. 

What does the following line output as its result? 

BUTFIRST "S 

When the first element is removed, nothing is left. LOGO still executes the 
procedure, and the answer is a blank line. The number of elements in the 
result is in fact zero. We can determine this with: 

COUNT BF "S 
Answer: 0 

This corresponds to the number 0=1-1. More precisely, we should use the 
term null set. There are actually empty words and lists. 

TO EMPTY.WORD 
OP " 

END 

TO EMPTY.LIST 
OP [] 

END 
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EMPTY. WORD has the same effect as BF "S. The empty word has exactly 
the same content as the empty list, but their types are different. 

To avoid an error message in the procedure WEDGE, the recursion must be 
given a programmed termination. An IF line can be added to the program 
for this purpose: 

TO WEDGE_1 :OBJECT 
IF :OBJECT = " [STOP] 

PR :OBJECT 
WEDGE BF :OBJECT 
END 

This IF statement can be used only when OBJECT is a word, because an 
empty list is somewhat different from an empty word. 

WEDGE TEST 

also returns the error message: 

BF doesn't like [] as input IN LINE... 

The procedure was not terminated with STOP, even though OBJECT was 
empty. If the procedure used with lists, the IF statement must read: 

IF :OBJECT = [] [STOP] 

There is, however, a solution that works for both cases: 

TO WEDGE_2 :OBJECT 

IF EMPTYP :OBJECT [STOP] PR :OBJECT 

WEDGE BF :OBJECT 

END 

Now, for this first time, we'll see a LOGO word that ends in a question 
mark. These words are check words, used to help check a certain condition. 
EMPTYP : OBJECT poses the question: Is OBJECT empty? 

The answer can be only TRUE or FALSE: 

EMPTYP "ELEPHANT 
Answer: FALSE 
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The same holds for EMPTYP TEST. 

LOGO reacts with TRUE for the following inputs: 

EMPTYP " 

EMPTYP [ ] 

The condition formulated with the check word EMPTYP permits the 
termination of the procedure WEDGE independently of either list or word 
input. 

WEDGE TEST 

Answer: LOGO IS A GREAT LANGUAGE 
IS A GREAT LANGUAGE 
A GREAT LANGUAGE 
GREAT LANGUAGE 
LANGUAGE 

But when we test the LOGO words FIRST, LAST, butfirst and 
BUT LAST, the brackets are lost. That's because PRINT automatically 
removes the square brackets on the outside. 

SHOW FIRST TEST 
SHOW BUTFIRST TEST 

Answer: LOGO 

[IS A GREAT LANGUAGE] 

With a sentence, FIRST makes a word out of the list as the result. 
However, the result of BUTFIRST is again a list, clearly indicated by the 
brackets. In the hierarchy word/sentence/chapter/book/library, FIRST and 
LAST lead back to the next lower level, while BUTFIRST and BUTLAST 
remain on the same level. 

FIRST FIRST [A SENTENCE] 

BUTFIRST BUTFIRST [A SENTENCE] 

In the first example the result is the letter A. In the second example the result 
is an empty list. 


160 



Abacus Software 


ST LOGO User’s Guide 


Mirroring words 

You can also output the mirror image of a word on the screen, i.e. print out 
the letters in reverse order: 

TO ANS.END :INWORD 

OP WORD (BUTFIRST :INWORD) (FIRST :INWORD) 

END 

Call: PR ANS.END "HELLO 
Answer: ELLOH 


The word would be mirrored by this operation if the remainder created by 
BUTFIRST had been previously mirrored. Here recursion can be used to 
create an elegant solution. 

Before the remainder of the word is connected to the letters moved to the 
back again, the procedure itself must be applied to the remainder. 

Therefore we must replace BUTFIRST : INWORD with the following: 

ANS.END BUTFIRST :INWORD 

The repetition triggered by the self-call must have a controlled termination. 
Without a line for termination, an error message occurs when the word 
cannot be divided any further—when an empty word is encountered. 

TO MIRROR :WRD 

IF EMPTYP :WRD [OP :WRD] 

OP WORD (MIRROR BUTFIRST :WRD) (FIRST :WRD) 

END 

Call: MIRROR "HELLO 
Answer: OLLEH 

The letters are not transported until the last letter of the inputted word (here 
the O) has been divided. 
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Mirroring sentences 

To mirror sentences with the same principle described above, we need only 
replace WORD in the previous program with SENTENCE: 

TO MIRROR.SENT :SENT 
IF EMPTYP :SENT [OP :SENT] 

OP SENTENCE (MIRROR.SENT BUTFIRST :SENT) (FIRST 
:SENT) 

END 

Call: PR MIRROR. SENT [HOW ARE YOU] 

Answer: YOU ARE HOW 

Call: PR MIRROR. SENT TEST 
Answer: LANGUAGE GREAT A IS LOGO 

To make the listing look better we also replaced WRD with SENT, but this 
has no effect on the operation of the program. 
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9.8 Expanding lists 


FIRST and LAST has corresponding inverses—respectively FPUT and 
LPUT. FPUT and LPUT are abbreviated from FIRSTPUT and LASTPUT. 
However, they do not exist in this form as LOGO words: 

Examples: SHOW FPUT "GOOD [MORNING] 

SHOW FPUT "WHAT [TIME IS IT ?] 

SHOW LPUT "IT [IS NICE AT HOME] 

SHOW LPUT "WHAT? [TIME IS IT] 

Answers: [GOOD MORNING] 

[WHAT TIME IS IT ?] 

[IT IS NICE AT HOME] 

[TIME IS IT WHAT?] 

The SHOW output indicates that FPUT and LPUT create lists. In this respect 
they are not exact opposites of FIRST and LAST, because they can also be 
used in conjunction with WORDS. 

FPUT and LPUT have exactly two inputs each. The second input must be a 
list. The first can be either a list or a word. They add a word or an entire list 
to the start or end of an existing list. 

In some cases the same effect can be gotten with other LOGO words: 


SHOW SENTENCE "GOOD "MORNING 
SHOW SENTENCE "GOOD [MORNING] 
SHOW SENTENCE [GOOD] [MORNING] 


Answer for each: [ GOOD MORN ING ] 

Each has the same result as FPUT "GOOD [MORNING ] . The input of the 
first example would not be allowed for FPUT because here the second input 
must be a list. The second example matches the use of FPUT completely. 
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SHOW SENTENCE [GOOD] [MORNING] 

SHOW FPUT [GOOD] [MORNING] 

Answers: [GOOD MORNING] 
and [ [GOOD[ MORNING] 

Here another difference from SENTENCE is apparent. FPUT does not 
remove the outer square brackets from the first input, while SENTENCE 
does remove them. This results not in a word, but a list with one element. 

LPUT works just like FPUT only the first input is placed at the end of the 
list which is expected as the second input. 


fput and lput Applications 

FPUT is the opposite of FIRST. 

TO TEST 

OP [LOGO IS A GREAT LANGUAGE] 

END 

PRINT FPUT (FIRST TEST) (BUTFIRST TEST) 

Answer: LOGO IS A GREAT LANGUAGE 

first and BUTFIRST divide the list created by TEST into the first 
element (here the word LOGO) and the remainder. FPUT combines the two 
again, which results in the initial TEST list. 

Things get interesting when the operations that work on the start of a list are 
combined with those that are active at the end of the list—for instance, 
fput used with LAST, LPUT with FIRST , etc.). 

The combination of FIRST/FPUT and LAST/LPUT is even more 
important if one of the separate parts is modified before it is recombined 
with FPUT or LPUT . 
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Changing elements 

DADA appends the string DADA to the first word of the sentence: 

TO DADA :LIST 

OP FPUT (WORD FIRST -.LIST "DADA ) (BF :LIST) 

END 

Call: PRINT DATA [HOW ARE YOU] 

Answer: HOWDADA ARE YOU 

The parentheses just make the program easier to read, and can be omitted. 

If the word itself is appended instead, we get a "stuttering" effect 
TO STUTT :LIST 

OP FPUT (WORD FIRST :LIST FIRST sLIST) BF :LIST 
END 

Call: PRINT STUTT [HOW ARE YOU] 

Answer: HOWHOW ARE YOU 

All of the words should be redoubled for a good stutter effect If you take a 
look at the transition from ANS . END to the procedure MIRROR, you'll 
probably recognize how STUTT has to modified. 

The remainder of the list created by BF : LI ST must be suppressed by the 
stutter process. BF : LIST must be replaced with STUTT BF : LIST. 

This causes stuttering for all words. But now we must provide for some 
termination of the repetition. This can work exactly like the termination for 

MIRROR: 

TO STUTTER :LIST 
IF EMPTYP :LIST [OP []] 

OP FPUT (WORD FIRST :LIST FIRST :LIST) (STUTTER BF :LIST) 
END 

Call: PRINT STUTTER [HOW ARE YOU] 

Answer: howhow areare youyou 
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9.9 Check words 


EMPTYP is a LOGO check word. EMPTYP : A has the result TRUE or 
FALSE just like a comparison operation of the form :A > :B. 

Check words in the LOGO vocabulary end with the letter P, though not all 
words ending with P are necessarily check words. Nothing happens to the 
input itself when they are called. LOGO check words are used to test 
properties and make decisions about further usage. EMPTYP are often used 
for terminating recursive procedures in a program, as in the previous 
examples. 

Other check words are used to determine the type of an object: 

• NUMBERP : A determines if the value of A is a number. 

• WORDP : A checks to see if the input is a word. 

• LISTP : A tests if the value of A is a list 

According to the rules of LOGO a number is also considered a word: 

NUMBERP 5 
WORDP 5 
LISTP 5 

Answers: TRUE, TRUE, FALSE 

The check word LlSTP's operation can be thought of as a search for square 
brackets, in which the number of elements is irrelevant. A single word, 
enclosed in square brackets, is viewed as a list, not a word but. 

LISTP [A LIST] 

LISTP [WORD] 

LISTP "WORD 
LISTP [] 

Answers: TRUE, TRUE, FALSE, TRUE 
Another very useful check word is: 

MEMBERP 
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MEMBERP determines if a word or list is part of another list, or whether a 
character is contained in a word: 

MEMBERP "NOISE [WORDS ARE NOISE AND SMOKE] 

MEMBERP "BAD [TODAY'S WEATHER IS NICE] 

MEMBERP "A "ABC 

MEMBERP [IS] [THIS [IS] A NESTED LIST] 

MEMBERP ". "5.16 

The second example's result is FALSE. All other results are TRUE. 

MEMBERP checks to see if the first input is contained in the second. 

In the hierarchy character/word/chapter/book..., the first input must be on a 
lower level than the second input. 

ST LOGO can even tell you where the character or list element for which 
you are looking can be found. We just need to ask WHERE: 

MEMBERP "WORDS [WORDS ARE NOISE AND SMOKE] WHERE 

The position 3 is printed after the answer TRUE. For individual characters 
WHERE and MEMBERP function like this: 

(PR MEMBERP "B "ABC WHERE) 

Answer: TRUE 2 

If the desired character or list element does not exist, where outputs zero as 
the position: 


(PR MEMBERP "D "ABC WHERE) 

Answer: FALSE 0 

Parts can be cut out of lists and strings with PIECE, where the start and end 
positions must be known. Sublists or substrings can be determined by their 
first and last elements with WHERE: 

TO START :OBJECT :DEST 

IF MEMBERP :OBJECT :DEST [OP PIECE 1 WHERE :DEST] ! 

[OP :DEST} 

END 
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Examples: START "NOISE [WORDS ARE NOISE AND SMOKE] 

Answer: [WORDS ARE NOISE] 

START "X "WORD 
Answer: WORD 

The procedure START returns the start of a list or word through the list 
element or character OBJECT. If the object is not found, the entire list or 
string is output as the result. If an empty list or word is to be returned in this 
activity, an additional check must be made to see if DEST is a word or a list. 

TO START2 :OBJECT :DEST 

IF MEMBERP :OBJECT :DEST [OP PIECE 1 WHERE :DEST] 
IF WORDP :DEST [OP "] [OP []] 

END 

Examples: 

START2 "FASSBINDER [WORDS ARE NOISE AND SMOKE] 
Answer: [ ] 

START2 "X "WORD 
Answer: 

You've probably noticed that in both cases the LOGO word IF was used 
for two alternatives, while in Chapter 7 only one executable list was used. 

• The list of LOGO instructions executed if the result is TRUE comes 
after the logical expression being checked by IF. 

• If a second list of instructions follows, it is executed only if the 
result is FALSE. If the second list is empty it is not executed. 
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Lottery drawing: Another example of memberp 

Random dice rolls were already introduced in the first chapter about 
calculations. Now we'll introduce lottery number rolls—6 numbers selected 
out of 44 available. 

It is possible that numbers already rolled may repeat before the lottery 
number is complete. To avoid repetitions of numbers, the results of the 
random numbers generated must be saved for comparison. MEMBERP can 
then be used to determine if a repetition occurs, and whether additional 
random numbers are necessary. 

TO LOTTO :NUM 
LOCAL "X 

IF COUNT :NUM = 6 [OP :NUM] 

MAKE "X (1+RANDOM 44) 

IF MEMBERP :X :NUM [OP LOTTO :NUM] 

OP LOTTO LPUT :X :NUM 
END 

The procedure LOTTO calls itself at two different places. It has one output 
value. Consequently, the recursive call must be made with OP LOTTO. 

If the check word MEMBERP results in a TRUE answer—i.e. the number 
drawn is no longer available in the drawing device—then only one repetition 
of the drawing process is made. If the number has not been drawn yet, the 
list NUM is passed after the drawn number has been added with LPUT. 

The call is somewhat easier if a calling program is used. 

TO DRAWING 

MAKE "NUM LOTTO [] 

(PR [RESULT:] BL :NUM [-EXTRA NUMBER:] LAST :NUM) 
END 

Example: DRAWING 

Result: 2 27 44 39 36 6 
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9.10 Comparison operations 


The check word EQUALP can be used to determine the equality of two 
objects: 


MAKE "LIST [WORDS ARE NOISE AND SMOKE] 
MAKE "SENT [TODAY IS MONDAY] 

MAKE "COPY :LIST 


EQUALP 

: LIST 

: SENT 

EQUALP 

: LIST 

: COPY 

EQUALP 

10 20 


EQUALP 

"WORD 

"WORD 


Answer: FALSE 
Answer: TRUE 
Answer: FALSE 
Answer: TRUE 


EQUALP can be used on lists, words, and numbers. The check word 
EQUALP corresponds to the standard syntax for check words, but it can 
also be abbreviated to an equal sign: 


= : LIST : SENT Answer: FALSE 

= "WORD "WORD Answer: TRUE 

The equal sign also has the advantage that it can be used with prefix notation 
as shown above as well as infix notation: 


: LIST = :SENT Answer: FALSE 

"WORD = : SENT Answer: FALSE 

Inequality can be checked by negating the equality. This is done by the 
word NOT, found in in almost all programming languages: 

NOT EQUALP :LIST :SENT Answer: TRUE 
not = "WORD "WORD Answer: FALSE 

In infix notation inequality can also be checked with an inequality symbol, 
composed of a less-than and a greater-than signs: 

:LIST <> : SENT Answer: TRUE 

The comparison operations greater than and less than (> and <) can be used 
only on numbers and words. 
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> "LOGO "BASIC 
"HENRY < "JAMES 
10 > 20 
< 1E10 1E15 


Answer: TRUE 
Answer: TRUE 
Answer: FALSE 
Answer: TRUE 


The size comparison of words is determined by their alphabetical order. A 
word is greater than another if it follows the other in alphabetical order. 

Unfortunately, DR LOGO makes mistakes when comparing numbers. 
Numbers count as special words in LOGO. The size comparison of 
numbers is then also performed as a lexical comparison. This works fine as 
long as the signs are positive. Try this out once: 


-10 > -20 


Answer: FALSE 


DR LOGO made a mistake! The answer would be right if two strings were 
involved because the first difference occurs at the second character since 1 is 
not greater than 2. Curiously, the error does not occur when comparing 
numbers in scientific notation: 


IE-10 > IE-20 


Answer: TRUE 


Here DR LOGO has recognized that the comparison is intended to be 
numerical and not lexical. 

How can this error be avoided? 

When comparing numbers, you should first take the difference 
and then compare the result of this difference to the number 
zero. 

MAKE "A -10 MAKE "B -20 
: A - : B > 0 

Answer: TRUE 

In defense of DR LOGO we should point out that in other versions of 
LOGO the comparison operators > and < are allowed only for numbers. 
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Sorting 

Data has to be sorted in all types of data processing applications. DR LOGO 
already has this capability built in. Therefore we do not have develop a 
sorting algorithm: 

SORT :LIST 

Answer: [AND ARE NOISE SMOKE WORDS] 

The five-word list is returned sorted in alphabetical order. The input to 
SORT must be a list of words—a sentence. SORT cannot be used on single 
words or nested lists. We will discuss sorting more complicated data in 
conjunction with data structures. 

Naturally, SORT can be used to sort numbers as well: 

SORT [25 10 2 4 17 3 26] 

Answer: [2 3 4 10 17 25 26] 

Unfortunately, LOGO makes the same error as mentioned before when it 
sorts negative numbers: 

SORT [-25 -10 2 -4 -17 -3 26] 

Answer: [-3 -4 -10 -17 -25 2 26] 

If you don't know the sign of the numbers to be sorted in advance, you 
must use special procedures to ensure that the values are sorted correctly. 

We had no problem sorting lottery numbers. The program DRAWING 
produces the lottery numbers in increasing order: 

TO DRAWING 

MAKE "NUM LOTTO [] 

(PR [RESULT:] SORT BL :NUM [-EXTRA NUMBER:] LAST :NUM) 
END 

Here the procedure SORT is simply inserted in the third line. 
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9.11 Shuffling lists 


We have already seen how to use RANDOM to bring random elements into 
games. But you can also mix words or lists through each other in random 
order. The LOGO word SHUFFLE was included for this: 

SHUFFLE :LIST 

Try this out with <Control>Y and see what happens. SHUFFLE can be used 
only on lists, but the lists may be nested. 

MAKE "BOX ! 

[THIS [IS A [VERY]] NESTED [LIST]] 

SHUFFLE :BOX 

Answer: [NESTED [IS A [VERY]] THIS [LIST]] 
Your results may be different, of course. 

You can also simulate a lottery drawing with SHUFFLE. Forty-nine balls 
are mixed together and six of these are chosen. 

TO BALLS :N :DRUM 
IF :N=0 [OP :DRUM] 

BALLS :N-1 FPUT :N :DRUM 
END 

Call: BALLS 4 9 [] 

The result of BALLS is a list of numbers 1 to 49. We start with an empty 
list. The third line adds a number on the left with FPUT. The repetition is 
done recursively, whereby the number N is decremented by one until it 
reaches zero and the recursion is terminated. You fill a drum with balls with 
the following: 


MAKE "DRUM BALLS 49 [] 
The drawing process can be done by hand with: 

PIECE 1 7 SHUFFLE :DRUM 
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Practice Problems 

1) Complete the program for generating random sentences. 
Write procedures ADVERB and PLACE. ADVERB so that they 
also provide random parts for the sentences. 

2) Write a procedure ARROW which at each step removes a letter 
from the front and back of the inputted word. 

3) Write a procedure to determine if a word is a palindrome. 
Palindromes are words that read the same both forward and 
backward, such as RADAR. The output should be TRUE if 
the word is a palindrome and FALSE if it is not. 

4) Formulate a LOGO activity which that the letters of a word 
passed to it. 

5) We write numbers with a decimal portion with a decimal 
point. Write a program which converts this notation to the 
European format with a comma instead of a point 

6) Try the following program. If the base is greater than 10 we 
use letters for the digits after 9 (10=A, 11=B, etc.). 
Generalize CONVERT for such cases, especially for base 16. 

TO CONVERT : N : B; converts N from decimal to system with base B 
IF :N = 0 [OP "] 

OP WORD (CONVERT QUOTIENT :N :B :B) (REMAINDER :N :B) 
END 

7) Are you a superstitious lottery player? Change the procedure 
for lottery drawing so that 13 does not come up as a winning 
number. 

8) SHUFFLE cannot be used on words and therefore not on 
numbers either. To shuffle a word or number with the help 
of SHUFFLE, the word must first be broken down into 
characters and gathered into a list. Write a procedure that 
converts a word into a list of characters, shuffles the list, and 
then converts it into a word again. 
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Input and Output 


New language elements: 

READQUOTE, READLIST, REACHAR, KEYP, ASCII, CHAR, 
GO, LABEL 

Programs: 

GREETING, CIRCLE_1, REACTION 


10.1 Input lists 


After you turn your ST on, it is continually carrying out internal operations 
regardless of what program, language or application is running. When the 
LOGO system is not occupied with carrying out your instructions, it is 
waiting for input, which normally comes from the computer keyboard. A 
question mark is displayed on the screen and the cursor is visible. For the 
computer this is an activity equal to performing calculations. 

You can instruct the ST to wait for input within a program with the LOGO 
words READLIST and READQUOTE. Let's look at a simple demonstration 
program: 

TO GREETING 

PRINT [WHAT IS YOUR NAME?] 

MAKE "NAME READLIST 

(PRINT [IF I HEARD CORRECTLY, YOUR NAME IS] :NAME "?) 

IF RQ = "NO [GREETING] [(PR [OK, HELLO ] :NAME)] 

END 

After calling GREETING the following text line appears on the screen, 
followed by the cursor: 

WHAT IS YOUR NAME? 

The question mark prompt usually placed in front of the cursor in the LOGO 
DIALOGUE window does not appear. The system now waits for an input 
while still in the procedure GREETING. You can verify this by stopping the 
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program with <Control>G. 

LOGO responds with Stopped ! in GREETING: ... After you enter 
a sequence of characters, the dialog continues. 

READLIST (abbreviated RL) instructs the LOGO system to 
wait for input. The program will not continue until the user 
presses the <Retum> key. 

READLIST can also be used in the direct mode with an answer like this: 

[. • •] 

The square brackets indicate that READLIST returns a list as its result. This 
can be easily determined with the check word LISTP: 

LISTP READLIST 
Answer after input: TRUE 

The result of READLIST can also be processed with LOGO words that 
work on lists, such as: 

COUNT READLIST 
FIRST BF READLIST 

This opens up the wide field of programs with input dialog. 

The LOGO word RQ (abbreviation for READQUOTE) appears in the 
second-to-last line of GREETING. It differs from READLIST only in that it 
expects a word instead of a list: 

WORDP READQUOTE 

After any input the answer is TRUE, even if you enter several words 
separated by spaces or a sentence of several words enclosed in square 
brackets. The blank spaces usually interpreted as separators, as well as the 
square brackets, are interpreted by READQUOTE as characters within a 
word. You can verify this by counting the characters with COUNT. 

READQUOTE (abbreviated RQ) returns the characters entered as 
a word. The cursor indicates that the computer is ready to 
receive input. The input is ended by pressing <Retum>. 
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10.2 Forward and backward jumps 


In the program GREETING we included a check of the keyboard input. The 
user confirmed the input, here his name. If he responds with NO, the 
procedure GREETING is called recursively. A good programmer will 
prepare for possible input errors by having the program check the input 
created by READLIST or READQUOTE for validity. 

As an example, here's a program for performing circle calculations. 

TO CIRCLE_1 

PR [CIRCLE CALCULATION] 

PR [ENTER RADIUS ] 

MAKE "R READQUOTE 
(PR [CIRCUMFERENCE =] 2*PI*:R) 

(PR [SURFACE =] PI*:R*:R) 

END 

The input radius is read in the fourth line with READQUOTE. The user may 
accidentally enter a character other than a number during input. When 
LOGO attempts to perform the calculations on this character, an error 
message appears. It makes sense to check to see if the word entered is really 
a number. The check word for this is NUMBERP. 

If the word entered is not a number, we shouldn't continue with the 
calculations but instead ask for a new input. A check word can be negated 
with the LOGO word NOT: 

IF NOT NUMBERP [...] 

What should appear in place of the ... ? The program should branch back 
to the line PR [ENTER RADIUS ]. 

Up to now you have, simply called up other activities, calling a procedure 
recursively, or ending a procedure. But it's also possible to return to 
program lines within a procedure, or to skip to later lines by jumping some 
program lines. Jumps within a procedure are performed with GO. 
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TO CIRCLE_2 

PR [CIRCLE CALCULATION] 

LABEL "INPUT PR [ENTER RADIUS ] 

MAKE "R READQUOTE 

IF NOT NUMBERP :R [GO "INPUT] 

(PR [CIRCUMFERENCE =] 2*PI*:R) 

(PR [SURFACE =] PI*:R*:R) 

END 

The jump destination must be marked so that a jump can be performed. The 
LOGO word LABEL must be placed at the beginning of the destination 
program line, followed by the label which marks the location. This label is 
ignored by LOGO until GO is encountered. 

Almost all programming languages have jump instructions. They are very 
common at the machine-language level. Using GO in LOGO is not very 
common, since LOGO offers the much more powerful procedure calls, 
including recursive calls. Jumps in LOGO cannot be arbitrary—they may 
occur only within a single procedure. Because LOGO procedures typically 
contain relatively few lines, jumps are also relatively short. 

Therefore, LOGO program structures aren't made too confusing by the GO 
instruction. But it wouldn't make any sense to formulate longer procedures 
with a whole set of jump destinations and GO instructions. A powerful, 
problem-oriented language like LOGO isn't designed for supporting 
primitive, low-level program structures. 


Reaction test 

We'll develop a program that tests a person's reaction time. The test subject 
should be requested to press a specified key when its corresponding 
character appears in the dialog window. Such a program can also be used to 
learn the typing keyboard. 

First we write utility procedures for the title, and one for a time delay. 
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TO TITLE 
CLEARTEXT PR " 

PR [REACTION TEST] PR " 

PR [PRESS THE KEY THAT APPEARS ON SCREEN] PR " 
PR [AS FAST AS YOU CAN ] 

PR " 

END 

TO DELAY 
REPEAT 150 [] 

END 

DELAY generates a program-controlled time delay which ends without 
outside control. But we don't want to display the character to be pressed 
after a standard, predictable interval. Here we can use random numbers to 
make the delay loop wait a random length of time. 

REPEAT RANDOM 300 [] 

To determine whether a key was pressed or not, the following LOGO check 
word has been included: 

KEYP 

After a keypress KEYP yields the value TRUE, or else FALSE. 

For a reaction test, the status of the keypress should naturally measure the 
reaction speed. This is done in the procedure KEY: 

TO KEY :K 

LOCAL "I MAKE "I 0 

LABEL "START 

IF KEYP [MAKE "KY RC] [MAKE "I :1+1 GO "START] 
IF ASCII :KY = :K [OP :I] [OP -1] 

END 

TO EVALUATE :I 

IF : I < 0 [OP [A MISTAKE!]] 

IF :I < 3 [OP [EXCELLENT!]] 

IF :I < 6 [OP [VERY GOOD!]] 

IF :I > 15 [OP [SLOW!]] [OP [GOOD!]] 

END 
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The procedure KEY repeats the keyboard test with a GO to the jump label 
START. The number of repetitions is counted in the local variable I and is 
returned as the result. The result of KEY is a measure of the reaction speed, 
which is then evaluated in the procedure EVALUATE. 

Before examining KEY more closely, here is the main program REACTION: 

TO REACTION 
TITLE 

REPEAT RANDOM 300 [] 

IF KEYP [(PR "DISQUALIFIED READCHAR! 

[WAS ALREADY PRESSED!]) DELAY REACTION] 

MAKE "K 65+RANDOM 26 PR CHAR :K 

PR " (TYPE [YOUR REACTION WAS] EVALUATE KEY :K) 

PR " DELAY REACTION 

END 

The fourth line of REACTION tests to see if a key was pressed before one 
was specified, resulting in a disqualification. The LOGO word READCHAR 
(abbreviated RC) reads the character corresponding to the pressed key and 
outputs it as the result. 

A positive answer to the check word KEYP does not exactly mean that a key 
was pressed, but indicates that there is a character that LOGO has not 
processed yet. Reading with READCHAR removes this indication—this is 
why it must be read if a key has beed pressed prematurely. DELAY creates a 
dramatic pause. The whole process starts all over again with a recursive call 
to REACTION. The character to be entered is chosen in the main program 
REACTION in the fifth line. 

MAKE "K 65+RANDOM 26 

This line randomly generates an integer between 65 and 90 and stores it 
under the name K. The value of K is passed to the procedure KEY. The 
connection between this number value and a letter is made with: 

PR CHAR :T 

This line uses the new LOGO function CHAR, best explained together with 
the function that occurs in the last line of KEY: 

ASCII RC 
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CHAR assigns a single character to a number. Conversely, ASCII assigns a 
number to a single character. 

Examples: 


CHAR 65 

Answer: 

A 

CHAR 90 

Answer: 

Z 

ASCII "B 

Answer: 

66 

ASCII "Q 

Answer: 

81 

ASCII CHAR 65 

Answer: 

65 

CHAR ASCII "Z 

Answer: 

Z 


The characters are words to LOGO. Characters are coded with the 
assignment of numbers. CHAR and ASCII operate with the standard code 
ASCII (American Standard Code for Information Interchange). The last 
two calls demonstrate that CHAR and ASCII are inverses of one another. 

The effect of KEY can be easily tested with examples: 

KEY 65 

The KEY program waits for a keypress without displaying the cursor on the 
screen. The wait is programmed in the first line of KEY. If the result of 
KEYP is FALSE (no key has been pressed), the value of I is increased by 
one. If you type the letter A (corresponding to the ASCII code 65), the value 
of I is returned. For example: 

Answer: 85 

The number indicates how often the first line of KEY was executed. If a key 
was actually pressed (according to KEYP in the first line of KEY) , then the 
key is determined by RC (for READ CHAR). It is assigned to the name KY. 
The repeat loop of the third line is broken. In the fourth line, the ASCII 
code of the pressed key is checked against the value K passed in the second 
variable. If they match, i.e. the correct key was pressed, the number of 
repetitions I is returned as the result. However, an error message appears if 
they do not match. 
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If you press some other key, like B, instead of the correct key A, then KEY 
reacts with: 

B IS FALSE ! 

Answer: -1 

KEY returns the value -1 as the result to indicate that the wrong key was 
pressed. 
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Practice problems 

1) When you called procedures the first chapters, all numbers, 
words and lists had to be written directly in the input line. 
Now the program examples can be provided with current 
input values using READLIST, READQUOTE and 
READCHAR. Go back to old examples and rewrite the 
programs so that you can enter the values while the programs 
are running. 

2) Write a program that reads a decimal number with two places 
after the decimal. Print the number with as many spaces in 
front of it as required so that the resulting number word 
always contains eight characters (including the spaces). 
(Space: "# or ASCII code). 

3) Formulate a procedure that moves the turtle around on the 
screen with the help of the keyboard (something like F for 
forward, R for right turn, and so on). 

4) Create random words from the letters of the alphabet by 
selecting letters at random. Use the words ASCII and char 
for the selection. 

5) Write a procedure which assigns each letter the next in the 
alphabet. At the end of the alphabet, return to the beginning 
so that Z is assigned A. 

6) Develop (cf problem 7) a program for a secret code in which 
each letter is replaced by another in an irregular manner. 
Random numbers may be useful for the assignment if you 
ensure that reproduceable sequences are generated with the 
help Of RERANDOM. 

7) A table is entered in which each column contains exactly ten 
values. The columns should have a set distance from each 
other. Write a program to print the numbers in tabular form 
on the screen. 
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Graphics with Coordinates 


New language elements: 

SETPAN, SETPOS, SETX, SETY, BOX, CIRCLE, ELLIPSE, 
ARC, SETZOOM, POLY, POS, XCOR, YCOR, SETHEADING, 
HEADING, TOWARDS, SCREENFACTS, SETBG, PENERASE, 
PENREVERSE, SETPC, TURTLEFACTS, SETLINE, FILL, 
GFILL, SETFILL, SETCRUNCH, FILLATTR 

Programs: 

TURTLE.HUNT, SOLARSYSTEM, POLYGON, POLYGONX, 
POLYCIRCLE, CIRCLENUMBER, FIREWORKS, SAS, TWITCH, 
SINECURVE, PLOTTER (function plotter) 


11.1 Drawing in the coordinate system 


The basic turtle graphics commands cause forward or backward movements 
and rotations to the left or right. The drawings are a result of the recorded 
tracks of the turtle in the GRAPHICS DISPLAY window. These basic 
commands all operate relative to the current position and direction of the 
turtle. 

In contrast, the basis of most graphics system is a set of instructions that 
moves the pen to a specific pixel or point on the screen or paper. A 
coordinate system is used to identify individual points on the screen. 

The geographical location of a city on a map of the world is determined by 
its latitude and longitude. The screen of a computer uses the shortest 
distances of the point from two coordinate axes as a method of determining 
the position of a point on the screen. The coordinate system is composed of 
a horizontal and vertical axis, which intersect at the origin of the coordinate 
system. 

The best graphics method to use depends on the situation. For instance, if 
you want to move the turtle to a specific location on the screen, you are 
forced to experiment with the turtle graphics commands like FD, BK, RT 
and LT until you get the right combination. 
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But LOGO also recognizes graphic descriptions in the coordinate system. 
ST LOGO has a whole set of powerful commands available for graphics in 
this system. The coordinate method therefore has greater importance in ST 
LOGO than in other versions of LOGO. 

A specified point—the exact center of the screen—can already be located 
with the command HOME. It moves the turtle to the center of the GRAPHICS 
DISPLAY window. 

The screen center is also the origin of the coordinate system for LOGO. The 
HOME command moves the pen to the coordinate origin—the point where 
both the X-axis coordinate (horizontal) and the Y-axis coordinate (vertical) 
have the values 0. (HOME also points the turtle straight up, but we will 
ignore the direction of the turtle in this discussion). 

You can also move the coordinate origin: 

SETPAN [50 50] 

This line assigns the coordinates x=50 and Y=5 0 as the center of the 
GRAPHICS DISPLAY window. Drawings that were already on the screen 
prior to this command are not affected. SETPAN is allowed only when you 
are working in WINDOW mode, not FENCE or WRAP. The WINDOW mode's 
drawing surface is arbitrarily large. Therefore the coordinate system can 
also lie outside the visible graphics window. 

The LOGO word SETPOS is used to set the pen to a given point on the 
screen. SETPOS requires as input a list of the two coordinate values, first 
the X and then the Y coordinate: 

SETPOS [0 0] 

SETPOS [50 50] 

SETPOS [-100 78] 

SETPOS [-50 -100] 

Lines are probably visible on the screen now, connecting the specified 
points with each other. The LOGO graphics commands are basically 
intended to move the drawing pen. Whether a line is drawn as a result or not 
depends on whether the pen is up or down. If penup (PU) was issued first, 
then the turtle would simply move to the specified points. 
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What values may the coordinates have? 

The answer depends on how large the graphics window is. The GRAPHICS 
DISPLAY window can be enlarged, reduced or moved around on the screen 
with the mouse. You can enlarge it to the size of the entire screen by 
clicking the upper right comer of the border. The following applies for the 
coordinates in the initial setting of ST LOGO: 

-149.5 <= x < 150, -172 < y <= 171.5 

The graphics window measures 300 units by about 340 units. This should 
give you an idea of the dimensioning of graphics. 

The coordinates must be passed as lists. If they are constants, as in the 
previous examples, the list is simply created using square brackets. In other 
cases a list is formed with SE (SENTENCE): 

MAKE "X 50 MAKE "Y -60 SETPOS SENTENCE :X :Y 

Other words for creating lists can also be used, in addition to SENTENCE. 


Movements parallel to an axis 

SETPOS requires the input of both coordinates. But it also has a simplified 
form in which only one of the two coordinates is required. The current 
value of the second coordinate is retained. 

SETX 100 Sets the X coordinate to the value 100 

The current Y coordinate remains the same 

SET Y 50 Sets the Y coordinate to the new value 50 
The current X coordinate remains the same 

The following input is a word instead of a list. If the input is not a constant, 
it can be an expression that returns a numeric value: 

SETX 3*:X 

or SETY RANDOM 100 
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If the pen is down, SETX and SETY draw lines that run parallel to the two 
coordinate axes. For instance, they can be used to draw the screen axes: 

TO AXES 

PU SETPOS [-149 0] PD SETX 149; X-AXIS 
PU SETPOS [0 -171] PD SETY 171; Y-AXIS 
HOME 
END 

In the wrap mode this is easier to do: 

TO WRAPAXES 

PU HOME PD 

FD 340 HOME; Y-AXIS 

RT 90 FD 320 HOME; X-AXIS 

END 

You can also send the turtle on a wild goose chase across the screen using 
random numbers and SETX and SETY: 

TO TURTLE.HUNT 

SETX (RANDOM 320) - 160 

SETY (RANDOM 260) - 129 

TURTLE.HUNT 

END 
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11.2 Graphic figures in the coordinate system 


ST LOGO has words for drawing figures in the coordinate system in 
addition to its turtle graphics LOGO words. You can draw rectangles, 
polygons, circles, arcs, and ellipses directly. The position of the desired 
figures is determined by the X and Y coordinates. 

The commands SETPOS, SETX, and SETY all use coordinates, but then- 
purpose is to move the turtle. The commands for drawing figures are 
completely independent of the turtle and do not affect it in any way. 


Rectangles 

The position of a rectangle is determined from its lower left comer. Its size 
is determined by height and width: 

BOX [-50 20 100 80] 

This creates a rectangle whose upper left comer has coordinates (-50 20). 
It is 100 units wide and 80 units tall. The values must be passed to BOX as a 
list of the following order: 

X-value Y-value Width Height 

Width and height may not be negative values. The drawing process itself is 
very fast, because BOX is built into the LOGO vocabulary. 

Naturally you can also create squares with BOX: 

TO SQUARE :X :Y :SIDE 
BOX (SE :X :Y :SIDE :SIDE) 

END 

SENTENCE (SE) is used to construct the list required for BOX out of the 
input values for SQUARE. Square brackets can be used only for constants. 
The parenthesis are necessary because more than two inputs follow 
SENTENCE. 
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Comparing the inputs of BOX with those of SQUARE shows another 
capability of LOGO—its ability to pass several values at once. Three 
separate inputs are required for SQUARE. A total of four inputs are 
necessary for BOX. But these are combined into a single object in a list, so 
that BOX really requires just one input. If a procedure must output more than 
one value, the output values must be combined into a list, since a procedure 
can return only one object. 

Try SQUARE out once with the following: 

CS REPEAT 200 [SQUARE -149 -170 RANDOM 300] 

Or draw random rectangles: 

HT CS REPEAT 100 [BOX (SE -149 -170 RANDOM 300 RANDOM 300)] 

Here the turtle is first hidden with HT, since it would be distracting in 
graphics of this type. You may also like the graphic in Figure 11.1. It was 
created with the following line: 

CS REPEAT 100 [BOX (SE -150+RANDOM 280 -170+RANDOM 310 
RANDOM 100 RANDOM 100)] 



Figure 11.1 
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Circles 

Circles can be drawn with the LOGO word CIRCLE. The circle is 
determined by the coordinates of its center and the value of the radius. 

CIRCLE [0 0 111] 

Here the input values must be combined in a list: 

X-value Y-value Radius 

Actually, what appears on the screen is polygon and not a real circle. 

Let's try this with random radii: 

HT CS REPEAT 100 [CIRCLE (SE 0 0 RANDOM 150)] 


Ellipses 

Ellipses can be drawn in a similar manner. But instead of the radius, you 
must input the two foci: 

ELLIPSE [0 0 145 80] ELLIPSE [0 0 80 145] 

The foci of an ellipse are the largest and smallest values of the distance of a 
point on the ellipse to the center. A mess of ellipses are created with the 
following line: 

CS REPEAT 30 [ELLIPSE (SE -150+RANDOM 280 -170+RANDOM 310 
RANDOM 100 RANDOM 100)] 

We can use the orbit of Halley's Comet as an example. The angles between 
the orbital planes are not taken into account: 
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TO SOLARSYSTEM 

: R 

ELLIPSE 

(SE 

0 

0 

0. 

ELLIPSE 

(SE 

0 

0 

0. 

ELLIPSE 

(SE 

0 

0 

: R 

ELLIPSE 

(SE 

0 

0 

1. 

ELLIPSE 

(SE 

0 

0 

5. 

ELLIPSE 

(SE 

0 

0 

9. 

ELLIPSE 

(SE 

0 

0 

19 

ELLIPSE 

(SE 

0 

0 

30 

ELLIPSE 

(SE 

0 

9 

. 9* 

ELLIPSE 

(SE 

17 


75* 


HALLEY 

END 


S COMET 


The input value of SOLARSYSTEM is the radius of the earth's orbit. The 
input determines whether all of the orbits or only part of the solar system are 
visible. Before running SOLARSYSTEM you should make the graphics 
window as large as possible by clicking the upper right corner of the 
window. The dialog window can be downsized and moved to an area of the 
screen where it is least disturbing. Click on the window in order to bring the 
GRAPHICS DISPLAY to the foreground. 
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To bring the orbit of the comet completely into view it is a good idea to 
move the coordinate origin with SETPAN: 

CS SETPAN [150 0] SOLARSYSTEM 12 


Zoom 

ST LOGO also offers a "zoom lens". Try it out: 

CIRCLE [0 0 200] SET ZOOM .5 CIRCLE [0 0 200] 
SETZOOM .5 

Although the inputs to CIRCLE are the same, two different, concentric 
circles result. 

SETZOOM . 4 reduces the entire graphics output size by the factor 0.4. 


Arcs 

An arc is a segment, a certain angle range, of a circle. In addition to the 
center point and the radius,The start and end angles of the arc to be drawn 
must be specified for the LOGO word ARC. 

ARC [0 0 100 0 90] 

The above line draws a quarter-circle. The starting angle is zero, which is 
straight up in the graphics window. The angle 0 corresponds to the map 
direction north. The turtle is oriented in this direction after the execution of 
HOME. The angle is measured in clockwise direction, as you are already 
familiar with from the rotation of the turtle. 

The arc is also always drawn clockwise, even if the ending angle is smaller 
than the starting angle. 

ARC [50 70 100 90 0] 

This line draws three-quarters of a circle. 
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Lines and polygon sections 

Two points are specified by their coordinates, and can be connected with a 
straight line by moving the turtle (with the pen up) to the first point and then 
on to the second point (with the pen down): 

PU SETPOS [-50 -100] PD SETPOS [150 100] 

Now it gets rather complicated. The desired line can be drawn independent 
of the turtle with the LOGO word POLY: 

POLY [-50 -100 150 100] 

The meaning of the list of input values should be clear. They are the X and 
Y coordinates of the first point, followed by the coordinates of the second 
point. Again, note that the square brackets can be used only to form an input 
list for constants. If any of the input values are not constants then 
sentence must be used. 

As you have probably guessed, the LOGO word POLY is more versatile 
than used so far. The list of input values can be lengthened by the 
coordinates of additional points, so that a section of a polygon results: 

POLY [-150 -150 -50 -30 -100 50 0 160 -10 -100 140 30] 

To play around with POLY a little, let's first define a procedure that 
randomly creates the coordinates of a polygon section: 

TO POLYGON :CORNERS :NUMBER 
IF :NUMBER =0 [OP :CORNERS] 

POLYGON (SE :CORNERS RANDOM -150+RANDOM 300 -170 
+RANDOM 320) :NUMBER-1 

END 

The procedure POLYGON calls itself in the third line. The recursive call 
NUMBER is decremented by one so that the recursion is eventually ended in 
line two. The list is expanded here by the coordinates of another point using 
SENTENCE. The first input of POLYGON is either the empty list or a 
previously created list of comer points. 

Try this out: 

POLY POLYGON [] 50 
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11.3 Turtle graphics and the coordinate system 


The turtle can be moved to a given location in the coordinate system with 
SETPOS, SETX, and SETY, so both graphics methods can be used together 
in a program. The graphics words examined in the last section are 
completely independent of the turtle. If you want to draw an ellipse with 
ELLIPSE you must know the coordinates of the center point. But is it 
possible to use the position of the turtle as the center point of an ellipse? 

For such problems we need to know the coordinate values of the turtle. The 
LOGO words XCOR and YCOR supply this information: 

CS SETPOS [100 120] PR POS 
Answer: 100 120 

The same result can be achieved with the following: 

CS SETPOS [100 120] (PR XCOR YCOR) 

• POS outputs the two coordinates as a list. 

• XCOR returns the current X coordinate of the turtle. 

• YCOR returns the current Y coordinate of the turtle. 

POS, XCOR, and YCOR are in a certain sense the inverses of SETPOS, 
SETX, and SETY. 

Now the two graphics methods can be combined with each other. You can 
created a polgon with the turtle commands: 

TO POLYGONX :N :SIDE 

LOCAL "ALPHA MAKE "ALPHA 360/:N 

LOCAL "R MAKE "R :SIDE /(2*SIN :ALPHA/2) 

PU FD :R RT 90+:ALPHA/2 PD 
REPEAT :N [FD :SIDE RT :ALPHA] 

PU LT 90+:ALPHA/2 PD 
END 

This version of POLYGON calculates the radius in the third line from the side 
length. This way the polygon can be drawn so that the position of the turtle 
is its center. Now we will draw a circle at each comer of the polygon: 
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TO POLYCIRCLE :N :SIDE 

LOCAL "ALPHA MAKE "ALPHA 360/:N 

LOCAL "R MAKE "R :SIDE / (2*SIN :ALPHA/2) 

PU FD :R RT 90+:ALPHA/2 PD 

REPEAT :N [FD :SIDE CIRCLE SE POS :SIDE RT :ALPHA] 

PU LT 90+:ALPHA/2 PD 

END 

A command to draw a circle around the comer point of the polygon was 
inserted between the forward movement (drawing a side of the polygon) 
and the corresponding rotation. 

Try this out: 


CS POLYCIRCLE 12 50 


Determing the circle ratio 

The circle ratio PI is the relationship of the circle's circumference to its 
diameter. You can calculate an approximation of this relationship if a circle 
is represented with a polygon. Hopefully this process will not revive 
unpleasant memories of your sixth grade math classes! LOGO can 
experiment with this very easily. The circumference of a polygon is found 
simply by summing the lengths of the sides, and we can measure the 
diameter with XCOR or YCOR. 

TO CIRCLERATIO 
SETX -140 

REPEAT 180 [FD 2 RT 1] 

LOCAL "RADIUS MAKE "RADIUS (XCOR+140)/2 

OP 180*2/:RADIUS 

END 

Actually only half of a circle is drawn, so that the diameter can be measured 
simply as the change of the turtle position from the starting point. Our result 
deviates from the "exact" value of PI by only 1/50 thousandths! 
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11.4 The direction of the turtle 


The turtle is a directional pen whose directon on the screen is indicated by 
the point of the triangle. Upon the execution of the commands CS and 
HOME, the turtle is placed in the middle of the screen and pointed straight 
up. This direction is the zero position of the pen. Any specifications of the 
direction of the turtle are now made relative to zero position orientation. 

The rotation of the turtle is usually relative to its current position. The 
following lines rotate the turtle by ten degrees regardless of its current 
position: 


RIGHT 10 (RT 10) 
or LEFT 10 (LT 10) 

The angle of rotation can also be negative—a right rotation by -10 degrees 
corresponds to a left rotation of 10 degrees. The angles may also be more 
than 360 degrees. 

You can also specify the direction absolutely, i.e. relative to the initial 
position, as well as specify an angle of elevation. The two LOGO words 
HEADING and SETHEADING are for this purpose. 

SETHEADING turns the turtle to the specified angle independent of its 
current orientation: 

SETHEADING 90 (abbreviated SETH 90) 

The line above orients the turtle horizontally and pointing east on a map. 
The input to SETHEADING is the angle counted clockwise from zero. 

HEAD ING returns the angle of the current orientation of the turtle and does 
not require an input. 

Try this: 

TO FIREWORKS 
SETHEADING RANDOM 360 
FD RANDOM 130 
HOME 

FIREWORKS 

END 
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Figure 11.3 

The turtle can also be directed to a given point and determine the 
corresponding direction. 

TOWARDS returns the "angle of elevation" in which a specified point lies 
from the current turtle position. TOWARDS requires the X and Y coordinates 
of the point as input values, gathered into a list as with SETPOS. 

HOME TOWARDS [50 50] 

Answer: 4 5 

The turtle is directed toward the point with coordinates (50,70) with the 
following combination line: 

SETHEADING TOWARDS [50 70] 
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Example: Trangle construction 

We'll use the procedure SAS to demonstrate the LOGO words for absolute 
orientation: 

TO SAS :C :ALPHA :B; TRIANGLE SIDE ANGLE SIDE 
LOCAL "BP MAKE "BP POS 
RT 90 BK :C 
LT :ALPHA FD :B 

(PR [ANGLE GAMMA: ] 180 + HEADING - TOWARDS :BP) 

SETPOS :BP 

END 

The procedure draws a triangle with two sides and the included angle 
specified. The second-to-last line determines the direction of the initial point 
and from there determines the angle GAMMA. 
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11.5 settings: The graphics repertoire of ST LOGO 

This section explores the SETTINGS menu, which contains some of the 
graphics specialities in ST LOGO. 

Graphics 

The Fill, Line, and Background sub-options are contained in the 
Graphics menu option: 


GRAPHICS I OK I I CANCEL I 

* 


Fill: 


TRUE 


FALSE 


Style: 

Index: 

Color: 

Line: 

Style: 

Hidth: 

Color: 

Background: 


04 

01 


01 


01 

01 



01 


00 



As already mentioned, Background refers to the background color of the 
graphics window. 
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The Fill option offers a number of graphics effects. Fill refers to the 
filling of all surfaces enclosed by a solid line. Surfaces can also be filled in 
the following manner with the command FILL: 

FILL 

This command fills the surface in which the turtle is located. 

FILL must be enabled before it has any effect. This can be done by clicking 
TRUE in the Graphics submenu of Settings. Alternatively, you can use 
the LOGO instruction: 

MAKE "GFILL "TRUE 

The system variable GFILL is assigned the value TRUE. And you were 
probably expecting a separate LOGO word starting with SET... 

Be careful! It is very easy to fill the entire screen with FILL. On the other 
hand, if the FILL mode is enabled but nothing happens after FILL, the 
turtle is probably at the border of a target surface and must be moved inside 
it. If you move the turtle inside the surface with the pen up, the connection 
to the border is broken and the surface can be FlLLed. 

If you create an enclosed figure with CIRCLE, BOX, ELLIPSE, or POLY, 
the figure is filled automatically without using FILL. 

It would take too much space here to explain all of the variations that can be 
achieved with the Style and Index sub-options of Fill. 

Code values 0 to 4 are allowed for Style. Index affects only for style 2 
(pattern) and 3 (shading) (24 index values for Style 2, 12 for Style 3). 
You should experiment with these settings yourself. With the high 
resolution of the ST monitor you'll soon discover the many pleasing 
graphics effects that can be achieved with FILL. 

The characteristics for Fill can also be determined within a program with 
the LOGO word FILLATTR. 
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ST LOGO can draw lines in various ways. The line appearance can be seen 
in the rectangle next to the Line option. Under the Line option you find 
three specifications: Style, width and Color, together with their 
corresponding codes. With either the mouse or the cursor keys you can 
place the cursor on these codes. 

Style accepts values from 1 to 7. The effect on the line is visible when 
you click its rectangle. You see that lines are variously dotted or shaded. 

This makes it possible to distinguish lines from each other by their 
appearance on the drawing surface. 

width lets you set the linewidth with values from 1 to 39. However, if you 
set Style with a code from 2 to 7, Width has only the default value of 1, 

An enlarged line can be drawn with BOX, CIRCLE, ELLIPSE, and POLY. 

But the results are not always perfect (with BOX, for example). 

Code 7 is open to you for your own pattern. The property .LPT must be 
selected from the system variable GRAPHICS for this (refer to later chapters 
for discussion of property lists). 

Usually you want to change the drawing style of lines in programs. The 
characteristics of lines can be programmed with the LOGO word SETLINE. 

Try this out: 

REPEAT 30 [SETLINE (SE RANDOM 711) CIRCLE (SE 0 0 RANDOM 200)] 

One can find out the properties of lines with the word LINEATTR. 
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Turtle 

Select the Turtle option from the Settings menu: 


TURTLE SETTINGS: 

Position: Heading: 0_ 

X: 63,4999341 Y: -91.49997 


Turtle State: | HIDDEN 
Pen State: 


SHOWN 


UP 

1 REVERSE 1 


D0I4N 

ERASE 


I OK I I CANCEL 

k 


In the TURTLE SETTINGS window you find first the current orientation 
and position of the turtle. In fact, the turtle can be moved and rotated by 
changing the specifications in this window, although this is seldom useful. 
Turtle State indicates whether the turtle is currently visible or hidden, 
and this status can be changed by clicking. 


Something new is the Pen State title. Four alternatives are offered: 


• UP 

• DOWN 

• REVERSE 

• ERASE 


Pen is up (selected with PENUP (PU)). 

Pen is down (selected with pendown (PD)). 
Pen reverses whatever color it finds under it 
(selected with PENREVERSE). 

Pen erases previous drawings (selected with 
PENERASE). 
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The alternatives can be selected and changed by clicking the mouse on the 
appropriate button. You are already familiar with the LOGO words PENUP 
and PENDOWN. The operations of PENREVERSE and PENERASE are 
clear—they enable the inverting and erasing modes of the pen, respectively. 

The LOGO words penup, PENDOWN, PENREVERSE, and PENERASE are 
usually easier than using the mouse in the Settings menu. They let you 
change the pen's status within individual programs, also. 

To clarify the use of the pen's reverse mode, try this: 

TO TWITCH 

CS PENREVERSE REPEAT 10 [FD 100 REPEAT 50 [] 

BK 100 REPEAT 50 []] 

END 

Assuming the graphics window is clean, the turtle leaves its trail as usual. 
But if it encounters other lines or surfaces it erases them. PENERASE, on 
the other hand, has no effect on a clean surface, since it simply erases 
existing points and lines. Note that PENUP, PENDOWN, PENREVERSE, and 
PENERASE work only with turtle graphics. 

The current state of the turtle is shown in the TURTLE SETTINGS 
window. But you can also find out this information by typing the LOGO 
word TURTLEFACTS. LOGO returns a list of six elements in response: 

SETPOS [50 30] SETHEADING 90 
PENREVESE SETPC 1 HT 

TURTLEFACTS 

Answer: [50 30 90 PX 1 FALSE] 

The meaning of the individual list elements is clear: 

1 & 2 Coordinates of the turtle 

3 Absolute direction 

4 Indicates pen is up, down, erase state, or (here) reverse state 

5 Color of the pen 

6 Indicates whether the turtle is visible 

The color of the pen is irrelevant if you're using a monochrome monitor. It 
can be set with SETPC, but only with 0 (white) or 1 (black). 
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SCREEN 


The SCREEN 
sub-option: 


SETTINGS window begins with the Window 


SCREEN SETTINGS: 

HindoM Node: 

ilHIUMii niRftPl | FENCE 
flspect Ratio: l|_ 


Zoom 
Pan: X: 
Y: 


JL 

e. 

A. 


I OKU I CANCEL I 


Mode 


You have three possibilities to determine the behavior of the graphics 
window: WINDOW, WRAP, and FENCE. As mentioned before: 

WINDOW: The graphics window shows a section of the theoretically infinite 
drawing surface. The pen may leave this window. Only the area visible 
within the window is displayed. 

WRAP: The graphics window represents the entire drawing surface. Upper 
and lower edges of the screen are "connected", as well as the right and left 
edges. When the border is overstepped, the pen does not leave the window 
but re-enters from the opposite side. 

FENCE: The graphics window is "fenced in." The pen cannot leave the 
window. An attempt to go beyond the edge results in an error message. 
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You can choose from the three options by clicking the appropriate buttons in 
the window. 

Under Aspect Ratio you find the current aspect ratio in the vertical 
direction. You can change its input value with the mouse pointer (or cursor 
keys)and keyboard. You then find a vertical line as a cursor which you can 
also move with the cursor control keys. In this manner a ratio other than the 
default value of one can be specified. 

Aspect Ratio can also be changed with the LOGO word 
SETSCRUNCH. 

Zoom lets you change the level of magnification of the zoom feature. This 
is accomplished the same as for Aspect Ratio. Alternatively, you can 
use the LOGO word SETZOOM. 

The current coordinates of the center of the graphics window can be found 
under the designation PAN. Again, this setting can be changed with the 
corresponding LOGO word SETPAN. 

The information contained in the Screen window is also available using 
the LOGO word SCREENFACTS. 

SETBG 1 WINDOW SETSCRUNCH .4 
SETZOOM 1 SETPAN [50 20] 

SCREENFACTS 

Answer: [1 WINDOW 0.4 1 50 20] 

SCREENFACTS outputs a list of specifications whose meaning can be 
recognized from the example. One thing we have not encountered here is the 
LOGO word SETBG (Set background). This sets the color of the graphics 
window. It has little significance in monochrome operation. You have a 
choice only between white (0) or black (1). This setting is handled in the 
Settings menu under the Graphics option. 
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11.6 Displaying functions 


The drawing command SETPOS is well-suited for the graphic 
representation of function values. For example, we can draw the waveform 
of the sine function, the following program by calling 
CS PU SINECURVE -149: 

TO SINECURVE :X 
IF :X > 149 [STOP] 

SETPOS SE :X 50*SIN :X*4 

PENDOWN 

SINECURVE :X+3 

END 

The repetition is again accomplished with recursion. On each recursive call 
the screen coordinate is increased by 3. This accuracy suffices for many 
purposes; the drawing takes correspondingly longer for smaller step values. 

Try this: 

SETLINE [1 4 1] CS PU SINECURVE -149 

Since the turtle does not play an important role in drawing function graphs, 
it can be hidden. When SINECURVE is called, the pen is raised with PU and 
then placed at the start of the curve so that no path is drawn from the current 
turtle position. 

Some problems must be solved before we can graphically represent 
functions, and before we can write a generalized function plotter. 

First of all, a flexible conversion between the absolute units on the screen 
and the units required for the calculation of the function values must be 
provided. The X in the program SINECURVE refers to the absolute screen 
coordinate. The conversion is performed in the function call. The calculated 
function value must then be adapted to an appropriate screen value with a 
scaling factor. 

The position of the coordinate origin in the middle of the screen may also 
not be well-suited for best displaying functions on the monitor. ST LOGO 
allows the origin to be moved from the center of the screen with SETPAN, 
so this problem is easily solved. Labeled axes with scaled units of measure 
are also help make a function graph more understandable. 
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Function plotter program 

Compared to the previous small examples, this easy-to-use drawing 
program represents a rather large programming project. The size of the 
graphics screen is important for such a drawing program. The following 
procedures are intended for the full-screen graphics window. If you want 
the graphics window to be smaller, you must change the constants that refer 
to the edges. Alternately, choose the WINDOW mode to avoid errors. 

Here's the first part of the program: 

TO PLOTTER :XO :Y0 :EX :EY :STEP; FUNCTION PLOTTER 
LOCAL "TEDGE MAKE "TEDGE 170+:Y0; TOP EDGE 
LOCAL "BEDGE MAKE "BEDGE -170+:Y0; BOTTOM EDGE 
LOCAL "LEDGE MAKE "LEDGE -310+:X0; LEFT EDGE 
LOCAL "REDGE MAKE "REDGE 310+:X0; RIGHT EDGE 
AXES; DRAW COORDINATE AXES 
MARK :EX :EY; MARK SCALES 

PU SETPOS SE :LEDGE FUNCTION :LEDGE/:EX PD 

CURVE :LEDGE 

END 

This segment of the program enables the individual program components. 

The borders of the graphics window (maximum size) are set with the sizes 
TEDGE, BEDGE, LEDGE, and REDGE. 

TO AXES; DRAW AXES WITH BORDER 
HT SETPAN [0 0] CS 

SETLINE [1 3 1] BOX [-309 -170 620 342] SETLINE [111 

SETPAN SE :X0 :Y0 

PU SETPOS SE 0 :TEDGE PD 

SETY :BEDGE HOME 

SETX :LEDGE SETX :REDGE 

END 

AXES draws the coordinate axes. In addition, it draws a border around the 
screen. The width of the line is set thicker for the border with SETLINE. 

TO MARK 

SETH 0 XSCALE -:EX * QUOTIENT :LEDGE -:EX 
SETH 90 YSCALE -:EY * QUOTIENT : BEDGE -:EY 
END 
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The program MARK places short lines on the axes at intervals corresponding 
to EX and EY. These marks are also shown on the border for better 
orientation. 

No inputs are required for the procedures AXES and MARK. The required 
quantities for these two words are global names whose values are taken 
from the calling program PLOTTER, where they are defined as local names. 
As they are written, these procedures can be called only from within 
PLOTTER. 

MARK uses the support activities XSCALE and YSCALE to set the scale 
markings: 

TO XSCALE :X; MARK IN THE X-DIRECTION 
IF :X > :REDGE [STOP] 

PU SETPOS SE :X :BEDGE PD FD 8 
PU SETY -5 PD FD 10 
PU SETY :TEDGE - 8 PD FD 8 
XSCALE :X + :EX 
END 

TO YSCALE :Y; MARK IN THE Y-DIRECTION 
IF :Y > :TEDGE [STOP] 

PU SETPOS SE :LEDGE :Y PD FD 10 
PU SETX -5 PD FD 10 
PU SETX :REDGE - 8 PD FD 8 
YSCALE :Y + :EY 
END 

NOTE: You should be careful when typing the minus sign. Remember, 
when it is followed by a space it is an operator. If no space separates it from 
what follows, it is considered a negative sign. 

The function graph is created in the procedure CURVE: 

TO CURVE :X 

IF :X > :REDGE [STOP] 

SETPOS SE :X :EY * FUNCTION :X/:EX 

CURVE :X+:STEP 

END 
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The function value is first calculated with the help of the procedure 
FUNCTION. When calling FUNCTION the screen coordinate X is converted 
to the quasi-mathematical coordinate for the function evaluation. 

We are still missing the procedure FUNCTION, which calculates the actual 
function to be displayed. The drawing program would be more flexible if 
the name of the function were not set, but were passed to the program as an 
input. This is also possible in LOGO, but we will discuss it later. 

TO FUNCTION :X 
OP :X * : X 
END 

This results in a parabola. 

To get a good display, you have to experiment and find the best selection of 
units and also the location of the coordinate origin through trial and error. 
For the parabola the X axis should be closer to the bottom of the screen. 
The units should be selected so that the relevant portion of the graph can be 
seen easily. 


PLOTTER 0 100 20 20 3 

The units of the sine function (measured in degrees in LOGO) are not 
well-suited for marking, because a useful interval on the screen must be at 
least a few pixels. Here an appropriate scaling in the function program can 
be helpful. To display something different than the sine function already 
used, in the following example uses a division by the argument. The 
resulting graph can be seen in Figure 11.4. 

TO FUNCTION :X 
OP (SIN :X*90)/:X 
END 

PLOTTER 0 0 40 100 3 

This change marks the units on the axes at every 90 degrees. A similar 
procedure can be used for other cases where a large number range is 
displayed on the X axis. 
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Figure 11.4 

The user of this program must know how the PLOTTER program is 
run—that is, he must know the procedure names, the number and meaning 
of the input values, and also obviously know that the function displayed is 
stored under the name FUNCTION. 

The user doesn't need to understand the drawing program itself. He can use 
it as a utility —an easy-to-use addition to the language. 
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Practice Problems 

1) Figure 11.1 draws scattered rectangles of random sizes all across the 
graphics screen. Write a program that creates ellipses in a similar 
fashion. 

2) Draw a graphic of a burning candle with the help of ARC and BOX. 

3) In the example SAS a triangle is constructed from the specification of 
an angle and two sides. Another angle is returned as the result. 
Generalize SAS so that the third angle as well as the third side are 
displayed on the screen. 

4) Compare CIRCLE with the programs developed for drawing circles 
in Chapter 7. What can you say about its accuracy? 

5) Revise the procedure FIREWORKS (Figure 11.3) by changing the 
lines drawn with SET LINE. The Index parameter can be 
determined with RANDOM. 

6) Draw the graphs of the function SIN ( 1/X) . Bypass the value x=0 
either through your choice of the step value or with a special test in 
FUNCTION. 

7) Revise the FUNCTION program so that several function graphs can 
be drawn at the same time in one screen. 
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Procedures 


New language elements: 
POCALL, POREF 

Programs: 

XSQUARE, HORNER, DIVIDER 


12.1 LOGO activities as procedures 


You have already become familiar with the idea of programming by defining 
new LOGO words. The new LOGO words name activities that are also 
called procedures. This chapter systematically investigates the concept of 
procedures. 

A procedure makes a LOGO activity available as an entity. The activity can 
consist of one or more sub-activities. In its simplest case, a procedure 
contains a single LOGO activity, where only the designation is of interest. 
You could use this feature to rename the LOGO primitives. 

But procedures are formulated with the goal of combining several 
operations under one name, thereby making powerful activities out of 
simple ones. We could name RECTANGLE as a simple but useful activity: 

TO RECTANGLE :SIDE :N 
REPEAT :N [FD :SIDE RT 360/:N] 

END 

The activities combined into a procedure form one concise, readable unit. It 
doesn't make sense to define LOGO activities for a single procedure 
extcessively long. Think of the English language—you don't expect the 
explanation of individual words in a dictionary to be several pages long. 

Self-contained program segments like LOGO procedures are called 
subroutines in other programming languages. Special to LOGO is its entire 
structure of programming with user-defined activities. While subroutines in 
other programming languages are important programming tools, the 
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procedures in LOGO are its primary programming instruments. There is 
really no such thing as a "main program" in LOGO. Complex tasks have at 
best an outline program that calls the sub-acitivities each in turn. 

This type of language construction makes it necessary to divide a problem 
into subproblems that can be processed as independent, well-defined 
problems. This method of problem analysis and its implementation in 
computer programs is called structured programming. In essence, all LOGO 
programs you write are structured programs by necessity. 
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12.2 Procedure types 


The goal of a procedure like RECTANGLE is to accomplish a specific 
processing task, and then display its results on the graphics screen. 
However, this procedure cannot be processed further by other procedures 
Therefore it is a procedure without output. 

If the result is to be made available for further processing, the procedure 
must first pass its result to the LOGO system before the procedure is exited. 
This involves a procedure with output. Procedures with and without outputs 
can be used concurrently. The result to be returned may involve part of the 
activity. This is a question of the inherent meaning. For LOGO syntax we 
are concerned only with whether an output results or not because the two 
types of procedures are handled differently. 

The basic LOGO vocabulary has check words that end with a P, like 
MEMBERP, WORDP, LISTP, EMPTYP, NUMBERP, whose result is TRUE or 
FALSE. 


Answer: FALSE 
Answer: TRUE 
Answer: FALSE 
Answer: TRUE 


WORDP [LOGO] 
WORDP "LOGO 
NUMBERP "LOGO 
NUMBERP 3.14 


These LOGO words have a result, so they are procedures with output Their 
results are special, however—only the two logic values TRUE or FALSE are 
returned. These words are most often used in connection with conditional 
statements, i.e. lines that begin with IF: 


IF NUMBERP :A [PRINT [A IS A NUMBER !]] 


These check words can also be declared as procedures. Here is an example 
of a procedure called DIVISORP, which checks to see if a natural number 
is a divisor of the second number. 


TO DIVISORP :NUMBER :DIVISOR 

OP REMAINDER :NUMBER : DIVISOR = 0 

END 


This procedure returns as the result either FALSE or TRUE, depending on 
whether the division NUMBER/DIVISOR has a remainder or not. 
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Such user-defined check words are used like the check words in the basic 
LOGO vocabulary. Procedures with this task play a special role and 
represent another type of procedure. We can now distinguish between three 
types of procedures: 

• Procedures without output 

• Procedures with output 

• Check words—procedures with the output TRUE or FALSE 


Procedures with output 

LOGO procedures that can return only one result are then called functions. 
For computations, LOGO offers only a few mathematical functions in its 
basic vocabulary. If these are not enough, you can program your own 
functions when you need them. For instance, some pocket calculators have 
a key to square the displayed number. You can quickly write a LOGO 
function to do this: 

TO XSQUARE :X 
OUTPUT :X*:X 
END 

A more complicated example is the following function procedure: 

TO HORNER :X :A; HORNER METHOD 
IF EMPTYP :A [OP 0] 

OP (FIRST :A ) + :X * HORNER :X BF :A 
END 

Call: HORNER 2.4 [2 3 0 5] 

Answer: 78.320007 

Note that the parentheses around (FIRST :A) are necessary so that 
FIRST is executed before the addition. The math operators have priority 
over FIRST, as well as LOGO words that operate on words and lists. 

The procedure HORNER calculates the value of a polynomial according to 
the Homer method. The coefficients are passed to the procedure as a list 
under the name A. 
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The following polynomial is calculated in the call to HORNER shown above: 
2 + 3*X + 0*X 2 + 5*X 3 

Polynomials are especially important for approximating mathematical 
functons. 


Procedures with several results 

If a procedure has more than one result, all results must be combined into a 
list. That's because only one object can be returned, according to LOGO 
syntax. Since LOGO processes everything at the level of lists, multiple 
results of any type can always be combined into a list. So the limitation of 
one output per procedure is not really a limitation after all. 

As an example, the following procedure determines the divisors of a natural 
number: 

TO DIVISOR1 :NUMBER 

(LOCAL "DV ”D) MAKE "DV [1] MAKE "D 1 
REPEAT (:NUMBER -2) [MAKE "D :D+1! 

IF REMAINDER :NUMBER :D =0 [MAKE "DV LPUT :D :DV]] 

OP LPUT :NUMBER :DV 

END 

Call: DIVISOR1 30 

Answer: [1 2 3 5 6 10 15 30] 

The program above finds all of the integer divisors of a natural number. The 
following programs run faster: 

TO DIVISOR :NUMBER 

OP DIV1 :NUMBER INT SQRT :NUMBER [] [] 

END 

TO DIV1 :NUMBER :D :DV :DR 

IF :D=1 [OP (SE 1 :DV :DR :NUMBER)] 

IF REMAINDER :NUMBER :D = 0 ! 

[OP DIV1 :NUMBER (:D-1) (SE :D :DV) (SE :DR :NUMBER/:D)] 

OP DIV1 :NUMBER (:D-1) :DV :DR 
END 
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Here only the parentheses in the second line of DIV1 are necessary—the 
rest just help clean up the listing. This version takes advantage of the fact 
that a small and large divisor are always found at the same time. You've 
probably noticed that Divi is written recursively, while DIVISOR1 was 
written without recursion. 
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12.3 Combining procedures 

A LOGO activity can itself call another LOGO activity into action. This is 
because you must use at least some of the LOGO primitives for even for the 
simplest programs. The user-defined LOGO words—the procedures—are 
handled just like the primitives. 

If you write a procedure using the LOGO word RANDOM, you must know 
the following: 

♦ the number of inputs RANDOM requires 

• the result RANDOM returns 

The actual operational methods used by RANDOM are not important for using 
it in other programs. But the vital links between procedures are the inputs 
and the output, provided they have input or output. Another way to link 
user-defined procedures is to provide another path of communication 
between them using global variables. 

Procedures without output are used just like LOGO words such as 
FORWARD or MAKE. These activities dQ have results, of course, like moving 
the turtle on the graphics screen. However, they do not return anything that 
other procedures can process. Activities that return a number as their result 
can replace any other number in the procedure or program. For instance, 
you can use SQRT 3 or HORNER 3 [2 5 7 9 ] any where the number 3 
can be used. If a procedures require inputs, then the inputs also can be 
replaced by procedure calls that return an appropriate result. 

In contrast, elements of lists cannot be directly replaced by procedure calls. 
If, in a call to HORNER, a coefficient list [ 2 5] is replaced by [RANDOM 
10 SQRT 7 ], then the input list consists of four words: RANDOM, 10, 
SQRT, and 7. This is not what was intended. The input list must then be 
created with SENTENCE: 

HORNER 2 (SE RANDOM 10 SQRT 7) 
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Local and global quantities 

LOGO vocabulary words require that you know only the requirements of 
the input values and the type of result, provided there are any. What 
happens internally when a LOGO vocabulary word is executed is not 
important. All quantities that occur in the execution of the procedure have 
only local scope (with the exception of the LOGO system variables). In 
other words, they are recognized by the LOGO system only during the 
execution of that one procedure. 

You should apply this principle to user-defined LOGO words as well. Then 
only the values for input and output need be known. All quantities which 
are not input nor output values should be defined as local quantities in the 
procedure with the instruction LOCAL. 

The input values of procedures are links their links with one another.The 
link exists only at the moment an activity is called. During the course of a 
procedure, the input values are local. When an activity is called, something 
like a package is sent. The contents and effects of this package are known 
only by the procedure which receives it. The input values can be modified 
within a procedure with no external consequences. 

Names that are neither input values nor defined as local names with LOCAL 
are all procedures known as global names. The names of this type, as well 
as their contents, can be reviewed with PONS. It may be useful to give 
global names to certain quantities, like PI, if they are available to all 
possible procedures. 

You can avoid passing the necessary values as input values to the 
procedures by using global names. But you must remember the global 
names you've used already, so that no conflicts arise when later writing 
new LOGO words. 

Global variables can also be used for output. Instead of this: 

OP 1 + RANDOM 6 
the line following line can be used: 

MAKE "A 1 +RANDOM 6 
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The above line can be used if A was not declared as a local name. The value 
of the variable A can then be used as the result, instead of the result of the 
procedure in question. 

Using global names makes for shorter programs, expecially with 
multiple-nested procedures. The advantages of modular programming 
techniques must be weighed against the possible benefits of using global 
variables. 
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12.4 Investigating program structure 


As we've seen, small LOGO program components work together to 
complete more complicated tasks. This can take place on several levels, so 
that one procedure calls another, and in turn this procedure calls other 
LOGO activities. A LOGO procedure can also call itself, either directly or 
indirectly through intermediate steps. Now we'll discuss in detail using the 
powerful tool of recursion. 

There are two special LOGO words that allow us to take a closer look at the 
program structure: 

POCALL and POREF 

POCALL outputs the title lines of all the procedures which are called by a 
program. 

Try this using the example of the function plotter program from the previous 
chapter: 


POCALL "PLOTTER 

The procedure name must be preceded by a quotation mark because we 
don't want to call PLOTTER. Answer: 

PLOTTER :X0 :Y0 :EX :EY :STEP 
AXES; DRAW AXES AND BORDER 
MARK :EX :EY 
XSCALE :X 
XSCALE :X 
YSCALE :Y 
YSCALE :Y 
FUNCTION :X 
CURVE :X 

FUNCTION :X 
CURVE :X 
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The LOGO answer means: 

• PLOTTER calls procedures AXES, MARK, FUNCTION, and CURVE. 

• MARK calls XSCALE and YSCALE 

• CURVE uses FUNCTION and CURVE 

• XSCALE calls XSCALE and YSCALE calls YSCALE 

POCALL prints the title lines of all the procedures used, along with their 
inputs. If another user-defined LOGO word is used within this procedure, 
the corresponding title line is printed. The title line is indented two spaces to 
the right. If user-defined procedures are called with recursion, this fact also 
appears with its title line. 

The level on which a procedure call occurs can be read directly from the 
horizontal position of die title line. If the corresponding title line is indented 
by four spaces, then it is called from a procedure used in the program being 
investigated. The call takes place on the second level: 

The level on which a procedure is used can be determined by 
how far the line with this procedure name is indented in the 
output of POCALL. 

If a procedure calls itself, the self-call will also be indented. How often the 
recursion takes place depends on the termination condition and hence 
usually on the current input values. 

The output of POCALL clearly shows if a procedure is used on different 
levels. In the example given, FUNCTION is called by PLOTTER, but it is 
also called on the next level by CURVE. 

If procedures are called more than once on the same level, POCALL outputs 
only the first call. Try adding another call to AXES or MARK at the end of 
our example. It is accepted without problem. However, if you apply 
POCALL to the program again, only the first occurrence is listed. 

POCALL gives you complete information about the procedures used in a 
program. If you also want to know how many times a procedure is called 
on the same level, you have to look at the text of the calling procedure. 
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The LOGO word POREF can be thought of as the inverse of POCALL: 
POREF "FUNCTION 

Answer: TO PLOTTER :X0 :Y0 :EX :EY : STEP 
TO CURVE :X 

You could use POREF when you change a procedure, especially the inputs. 
If you change the number, order, or type of the inputs, the corresponding 
function calls must also be changed. POREF quickly discovers where 
changes are needed. POREF lists the title lines of all the procedures that call 
the given activity. 
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Practice problems 

1) Use POCALL on programs from previous chapters. 

2) Formulate a vowelp check word that checks whether the 
input character is a vowel or not, and returns TRUE or 
FALSE as its result 

3) Write a procedure to find the vowels in a given word and 
output these as a list. 

4) Write a procedure that accepts a list of numbers as input, then 
calculates the sum of these numbers and returns this sum as 
the result. 
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Recursion 


New language elements: 

Recursion with self-call at the end, recursion with self-call in the middle of 
the procedure 

Programs: 

PERMUTATIONS (factorial), TIPS (binomial coefficient), GCD, LCM 
(Euclidean algorithm), TETRA (graphic recursion), TOWER (Tower of 
Hanoi), STRATEGY (iterative version of Tower of Hanoi) 


13.1 Recursive call at the end of the procedure 


Programs with recursion are typical for LOGO, which is why we discussed 
recursive programs early in the book. In this lesson we take a systematic 
look at recursion. 

In the simplest case the self-call serves only for simple repetition, without 
any change. A graphic process like drawing an angle can be repeated an 
arbitrary number of times in this manner. Compare these two programs, 
which lead to the same result: 

TO ANGLE1 

FORWARD 60 RIGHT 100 

ANGLE1 

END 

TO ANGLE2 

LABEL "START FD 60 RT 100 GO "START 
END 

The repetition of the forward movement and a right rotation is achieved in 
ANGLE 1 with a self-call, and in ANGLE2 with a jump instruction, GO. 
ANGLE 1 is a recursive formulation of the problem, while ANGLE2 is an 
iterative formulation. 
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Input quantities can be changed in a self-call. Changes of the repetitions' 
quantities can be formulated easily with recursion: 

TO ANGLE3 :ANGLE :LENGTH 
FD :LENGTH RT :ANGLE 
ANGLE3 :ANGLE :LENGTH+1 
END 

TO ANGLE4 :ANGLE :LENGTH 
LABEL "START FD :LENGTH RT :ANGLE 
MAKE "LENGTH :LENGTH + 1 
GO "START END 

The first program is again a recursive solution and the second is an iterative 
solution for the same task. If the program structure is analyzed with 
POCALL, we get: 

ANGLE3 :ANGLE :LENGTH 
ANGLE3 :ANGLE :LENGTH 
ANGLE4 :ANGLE :LENGTH 

The different courses of the procedures can be followed with the TRACE or 
WATCH modes.Only the change of LENGTH through MAKE is shown in the 
iterative formulation of ANGLE4, while the recursive variant ANGLE3 
reflects the continuing self-call with the current input values. 

It is easy to see what is supposed to happen in a recursive call: at the end of 
ANGLE3, the leg of an angle is drawn again, with its length one unit longer 
than before. We must first make clear how the repetition takes place in the 
iterative repetition of ANGLE 4 before we can understand the task it 
performs. This is not a problem in this simple example, but with more 
complicated problems it can quickly become difficult to understand the 
significance of repetitions. 

It must be clear that the change with MAKE removes the contents of a drawer 
(LENGTH), uses the contents in a calculation, and then stores the result back 
in the same drawer. 

On the other hand, it can be difficult with recursion if you want to 
understand the internal operation. What happens in the computer when a 
program calls itself? Isn't this like a snake swallowing its own tail? If you 
aren't experienced with languages that support recursion, you may well ask 
such questions. 
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LOGO was conceived so that you wouldn't need to concern yourself with 
the internal operation of the computer. The LOGO program is a formulation 
of what must be done at one level—the LOGO system takes care of all of 
the details at lower levels. 

For the formulation of the intrinsic goals, recursive solutions are better 
oriented to the problem. But iterative solutions are usually better adapted to 
the internal processing of the computer, and therefore can be executed 
significantly faster. 

This section's simple recursion examples have their recursive calls in last 
instruction of the procedure, and no results are returned by the procedure. 
These examples can be performed relatively quickly in LOGO, and can also 
be executed as many times as desired. 
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13.2 Recursive calls before the end of the procedure 


In recursion which serves simply as a repetition, the self-call occurs as the 
last activity in the procedure. The course of the program is harder to 
understand if additional lines follow. How can an activity call itself if it is 
not yet completely executed? 

Take a look at a simple example that simply counts the repetitions: 

TO COUNT1 :NUMBER 
IF :NUMBER > 5 [STOP] 

PR -.NUMBER 

COUNT 1 -.NUMBER + 1 

END 

TO COUNT2 :NUMBER 
IF :NUMBER > 5 [STOP] 

COUNT2 :NUMBER + 1 

PR -.NUMBER 

END 

Both programs count up to five. A termination condition is provided in both 
examples with the help of IF ... [STOP], so that the repetition 
terminates. In COUNT 1 the self-call is again the last instruction in the 
procedure. But in COUNT2 there is a print instruction following the 
recursion. 

The starting value is incremented and 1, 2,3, 4, 5 is printed after the call: 
COUNT1 1 

Without this IF program line the program would continue to output the 
natural numbers in order until it was stopped manually. On the other hand, 
5, 4, 3, 2, 1 appears on the screen after the following call: 

COUNT2 1 

The cause of the reverse order must be connected to the different location of 
the output instruction PR : NUMBER. 
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What happens if the termination condition if removed from the procedure 
COUNT2? An easy way to take a line out of a program temporarily is to 
make it a comment by placing a semicolon in front of it. Nothing appears at 
first after calling COUNT2; soon, however, LOGO stops the program with 
the message: 

Out of LOGO stack space 

A recursive call like this cannot be repeated indefinitely—the LOGO system 
clearly requires memory space, called a stack. With TRACE or WATCH you 
can determine that the termination comes at the 199th self-call of COUNT 2. 
You'll never see such a termination of the recursion in COUNT 1 ! 

The different operation of COUNT2 and COUNT 1 can be seen with a trace 
function, such as WATCH: 


WATCH 







COUNT1 

3 






[1] 

In 

COUNT1, 

IF 

:NUMBER>5 

[STOP] 



[1] 

In 

COUNT1, 

PR 

:NUMBER - 

Dialog 

window: 

3 

[1] 

In 

COUNT1, 

COUNT1 :NUMBER+1 



[1] 

In 

COUNT1, 

IF 

:NUMBER>5 

[STOP] 



[1] 

In 

COUNT1, 

PR 

:NUMBER - 

Dialog 

window: 

4 

[1] 

In 

COUNT1, 

COUNT1 :NUMBER+1 



[1] 

In 

COUNT1, 

IF 

:NUMBER>5 

[STOP] 



[1] 

In 

COUNT1, 

PR 

:NUMBER - 

Dialog 

window: 

5 

[1] 

In 

COUNT1, 

COUNT1 :NUMBER+1 



COUNT2 

3 






[1] 

In 

COUNT2, 

IF 

:NUMBER>5 

[STOP] 



tl] 

In 

COUNT2, 

COUNT2 :NUMBER+1 



[2] 

In 

COUNT2, 

IF 

:NUMBER>5 

[STOP] 



[2] 

In 

COUNT2, 

COUNT2 :NUMBER+1 



[3] 

In 

COUNT2 , 

IF 

:NUMBER>5 

[STOP] 



[3] 

In 

COUNT2, 

COUNT2 :NUMBER+1 



[4] 

In 

COUNT2, 

IF 

:NUMBER>5 

[STOP] 



[3] 

In 

COUNT2 , 

PR 

:NUMBER - 

Dialog 

window: 

5 

[2] 

In 

COUNT2, 

PR 

:NUMBER - 

Dialog 

window: 

4 

[1] 

In 

COUNT2 , 

PR 

:NUMBER - 

Dialog 

window: 

3 


In COUNT 1 the print line is executed before the self-call. Correspondingly, 
the numbers printed appear in increasing order. After the termination 
condition, the execution of COUNT 1 is ended in one step. 
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When the recursion is processed in COUNT2, the current level is terminated 
and control passes back to the next level of the procedure call. After the 
termination condition is fulfilled, the recursion steps back to the initial level 
of C0UNT2. 


The print line is then performed three times in succession, starting with the 
one at the level before the termination condition was reached. 

You can see that the digit enclosed in the square brackets in front of each 
line is incremented each time COUNT2 is called. When the recursion ends it 
is decremented at each level until the initial level is reached. This does not 
happen in COUNT 1. 

To be able to output the value of NUMBER at this point, the valid value must 
be available at the given level. This can happen only if LOGO saved the 
value for later use each time COUNT2 was interrupted by the self-call. This 
is just one name in out simple example. In general, all local names must be 
stored in a stack each time the procedure is interrupted. When the memory 
set aside for this purpose is exhausted, the recursion can no longer be 
performed and the LOGO system reacts with the message: 


Out of LOGO stack space! 

The reverse order, i.e. the output of the numbers in COUNT 1 and COUNT2, 
is due to the fact that the print line is performed in forward steps in the 
recursion in COUNT 1. However, in COUNT2 the numbers are printed when 
the recursion collapses back to the starting level. 

The need to store valid values of the local names when a procedure is 
interrupted costs memory space. Storing the values when the procedure is 
called and restoring them again when the procedure is continued causes 
additional work for the system for which considerable time is required. 

The path of COUNT2/3 can also be achieved through several different 
procedures without recursion. 


TO COUNT2 :NUMBER 
IF :NUMBER > 5 [STOP] 
COUNT3 :NUMBER+1 
PR :NUMBER 
END 


TO COUNT3 :NUMBER 
IF :NUMBER > 5 [STOP] 
COUNT4 :NUMBER + 1 

PR :NUMBER 
END 
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The activities COUNT2/3/4 are identical except for the designations of the 
procedure names. The procedures themselves are the same, but differ in the 
names they are stored under and the following procedures they call. With 
this method there are no problems understanding the operation of the 
program. As soon as COUNT3 is called, the execution of COUNT2 must be 
interrupted until COUNT3 is finished. It is possible to formulate problems 
this way only if you know ahead of time that this mutual calling will not 
exceed a given level. Recursion, on the other hand, makes it possible to use 
the same program text at a variety of levels. 
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13 3 Recursive functions 


Sorting different objects 

How many ways can eleven books be arranged on one shelf? The answer is 
39916800. The following answer is more informative: There are eleven 
times more possible ways to arrange eleven books than there are to arrange 
ten books. For every possible arrangement of ten books, the eleventh book 
can be placed in front of the first, second, ..., tenth or behind the tenth 
book. It follows that for each ordering of ten books, there are eleven 
possibilities for the last book. 

The latter answer doesn't yield a number, but does give us insight directly 
into the recursive solution for an arbitrary number of objects: 

To determine the possible arrangements of N objects, the number of 
permutations of (N-l) objects must be calculated and multiplied by N. 

TO PERMUTATIONS :N 

OUTPUT :N * PERMUTATIONS :N-1 

END 

In the given problem, a value is to be calculated as the result. This is why 
the corresponding procedure must output a value with OUTPUT. The 
procedure call must then be located in a line where a word can be inserted in 
place of a number, or for the value of a name. Even recursive procedures 
with output values must be used in this way. The procedure 
PERMUTATIONS is called recursively in the line where the OUTPUT is 
made. The self-call thereby belongs to the input of OUTPUT. 

The procedure PERMUTATIONS is not yet complete, because the recursion 
never ends. Actually, LOGO quickly answers with the error message Out 
of LOGO stack space ! Although the self-call is at the end, this is not 
the simple form of recursion that allows indefinite repetitions. The reason is 
easy to see. The result (here the number of permutations) must be saved for 
the multiplication, because this is cannot be executed until the recursion is 
performed. 

A termination condition is necessary for the recursive calculation of a value. 
Because a result is required, an output value must be present at the end of 
the recursion. A recursive calculation can function only if a special value 
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that ends the recursion is known. For our example, the function can be 
terminated when a single object is reached, because there is only one way to 
order one object: 

TO PERMUTATIONS :N 
IF :N=1 [OUTPUT 1] 

OUTPUT :N * PERMUTATIONS :N-1 
END 

The function PERMUTATIONS defined here is called factorial in 
mathematics. 
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13.4 Additional examples of recursion 


Calculating polynomials 

An example of a recursively-defined function is the calculation of values of 
a polynomial in Chapter 12 using the Homer method: 

TO HORNER :X :A 
IF EMPTYP :A [OP 0] 

OP (FIRST :A) + :X * HORNER :X BF :A 
END 

The recursion here refers to the list of coefficients, A. The result is 
calculated from the value of the polynomial that results from the first 
coefficient's omission. 


GCD and LCM: Euclidean algorithm 

GCD: Greatest Common Denominator; LCM: Least Common Multiple—the 
very words may bring back childhood nightmares of calculating with 
fractions. But LOGO has made all this quite simple! The procedure named 
after Euclid is an elegant method of finding the greatest common 
denominator. We take the larger of the two numbers and determine the 
remainder of the division when dividing by the smaller number: 

54=12*4+6 

The remainder of the division and the smaller number have the same GCD 
as the initial values, but the pair (12,6) has smaller numbers than (54,12). 
The procedure ends when no remainder is left. This algorithm can be very 
easily formulated recursively: 

TO GCD :A :B 
IF : B = 0 [OP : A] 

OP GCD :B REMAINDER :A :B 
END 

The procedure also works if the first number is smaller than the first. The 
numbers are then exchanged with each other in the first step. The least 
common denominator can be calculated with the following: 
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TO LCM :A :B 

OP : A * : B / GCD :A :B 

END 


The tetrahedral tree—graphic recursion 

TO TRIANGLE :SIDE 
RT 150 FD :SIDE * SQRT 3 
RT 150 FD :SIDE 
RT 180 
END 


Try this out: 


FD 80 TRIANGLE 80 

The result is an Isoceles triangle. Now repeat this line twice! The result is 
two congruent triangles which together give the impression of a tetrahedron. 

The procedure TRIANGLE draws only two sides of a triangle. This was 
done on purpose. After the first side is drawn ,an interruption can occur and 
different figure can be drawn at the current position. We use this fact to 
project a tetrahedron recursively: 

TO TETRA : SIDE :L 
IF :L = 0 [STOP] 

REPEAT 3 [FD :SIDE TETRA : SIDE/1.9 :L-1 TRIANGLE :SIDE] 
END 

The quantity L specifies the level of the recursion. Try this: 

CS BK 30 TETRA 80 4 

A simple program, but it creates the graphic in Figure 13.1! 
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Desk Fi le Run Edit Settings 


GRAPHICS DISPLAY 



Figure 13.1 

The simple structure can be made clear with POCALL: 

POCALL "TETRA 
TETRA :SIDE :L 
TETRA :SIDE :L 
TRIANGLE :SIDE 
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13.5 The Towers of Hanoi 


The mathematical game "Towers of Hanoi" is a classic example for 
recursion. Invented by a mathematician named Lucas, the game has a given 
number of disks of varying diameter stacked up according to size, with the 
largest at the bottom and the smallest at the top. Next to this stack are other 
places where the disks can be stacked. The goal is to transfer the tower from 
the first position to one of the other two. In so doing, disks may be placed 
only in an empty position or on a disk with a larger diameter. 

The computer can be used to substitute for the actual game materials and the 
three positions. This game program can be formulated with the procedures 
detailed below. 

With only two disks, the game is easy to specify the necessary moves to 
move the tower from position 1 to position 2: 

1 to 3 /1 to 2 / 3 to 2 

With three disks, the part of the tower minus the bottom disk is moved to 
position three. We just solved the problem with two disks, so we know 
how to do this. The bottom disk is then placed in position two and the rest 
of the stack must be moved from position 3 to position 2, which again 
requires the solution to the two-disk problem: 

1 to 2 /1 to 3 / 2 to 3 
1 to 2 

3 to 1 / 3 to 2 /1 to 2 

With N disks, the upper part of the stack (N-l) is moved to the third 
position, which is not the destination position. The bottom disk is moved to 
position, and then the tower with (N-l) disks is moved from position two to 
the destination. This suggests that a recursive solution might be useful, 
since we are always building on the solution for a tower with one fewer 
disks. The recursion is completed when there is only one disk to move. 

The basic activity is moving a disk from one position to another position. 
Without graphics output you could output the corresponding instructions 
and carry out the game with real disks based on the commands from the 
LOGO program. The procedures for graphic display are discussed later. 
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TO MOVE :FROM :TO 

(PRINT [MOVE FROM POSITION] :FROM [ TO POSITION ] :TO ) 

END 

The actual solution is programmed in the procedure TRANSPOSE: 

TO TRANSPOSE :N :FROM :TO 
IF :N = 1 [MOVE :FROM :TO STOP] 

LOCAL "TEMP 

MAKE "TEMP WORD "L 6 - (LAST :FROM) - (LAST :TO) 

TRANSPOSE (:N-1) :FROM :TEMP 

MOVE :FROM :TO 

TRANSPOSE (:N-1) :TEMP :TO 

END 

The towers are not designated simply by number, but with LI, L2, L3. This 
procedure has proven to be useful for managing the disks. Here 
programmed management is not yet necessary, but the programs can be 
used with graphics display with the extension in the next section. The 
number is obtained from the name with LAST, while the correct name is 
created again from the number with WORD. 

The number of the temporary position is determined in the third program 
line with the help of the formula given there. The remaining lines reflect the 
procedure described earlier. All we need now is an outline program. 

TO TOWER :NUMBER 

TYPE [FROM POSITION 1 TO POSITION?] 

TRANSPOSE :NUMBER "LI WORD "L RQ 

POCALL yields the following information: 

POCALL "TOWER 
TOWER :NUMBER 

TRANSPOSE :N :FROM :TO 
MOVE :FROM :TO 
TRANSPOSE :N :FROM :TO 
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13.6 Graphics procedures for Towers of Hanoi 


The following procedures can be used to graphically display the optimum 
solution of the game on the screen. The graphics programs are more 
complicated than the game itself. 

With the help of the procedures PLACE, ON and OFF, we can draw a filled 
rectangle (representing a disk) on the screen at a given location. Then we 
can place the disk on a stack, or remove it from a stack. 

TO PLACE :N :S :P 
IF :N < 1 [STOP] 

BOX (SE (ITEM LAST :P :X) - :S/2 (ITEM :N :Y) :S 8) 
END 

TO ON :P :S 

MAKE :P SE THING :P :S 
SETFILL [1 1 1] 

PLACE COUNT THING :P :S :P 
END 

TO OFF :P 

LOCAL "L MAKE "L THING :P 
LOCAL "S MAKE "S LAST :L 
SETFILL [1 1 0] 

PLACE COUNT :L :S :P 
MAKE :P BUTLAST :L 
OP : S 
END 

PLACE N signifies the situation of the disk on the stack, s is the size of the 
disk, and P is the position number. A disk is then drawn at the position 
calculated in the third line. This procedure assumes that the center X 
coordinates of the three positions are stored in the list X as a global variable, 
as well as the vertical positions of the disks in the list Y. 

ON places another disk of size S on the stack numbered P. The OFF 
removes the top disk of a stack. Both use the activity PLACE. In addition, 
we need some way to keep track of the state of the three positions. That's 
because we must know how many and what disks are in a given location to 
graphically display the towers. This is done with the lists LI, L2, and L3. 
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In LOGO you can assemble names in the program itself, and we do this 
here with the letter L and the digits 1, 2, 3. If the stack number is 

available under the name P, the corresponding name is created with 
WORD " L : P . If we want the value of this name, a colon must be placed in 
front of it, as standard LOGO syntax dictates. 

But this is not enough, because the value is then the name just formed. This 
is because the name is not given directly but is itself the value of something. 
The value, here the list LI (L2, L3), is determined through the LOGO word 
THING. THING is discussed in more detail in Chapter 15. 

When placing a disk, the color must be set to contrast with the background 
color. Conversely, when a disk is removed in OFF, the color must be 
changed to the background color before PLACE is called. This is done with 
SETFILL, because filled rectangles must be used. If you want unfilled 
disks you must set the color with SETLINE. 

When placing a disk, the corresponding list must be extended by the size of 
the new disk. Also, the corresponding specification must be removed when 
the disk is taken off. It is returned as the result, since the disk must be 
placed on another stack. 

The movement is accomplished graphically with ON and OFF: 

TO MOVE :FROM :TO 
ON :TO OFF :FROM 
END 

The result of OFF is an input value for ON. To round things off all we need 
are the procedures TOWER and BUILD, in which the initial situation of the 
game is set up and displayed: 
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TO TOWER :NUMBER 
HT CS 

MAKE "LI [] MAKE "L2 [] MAKE "L3 [] 

MAKE "X [-200 0 200]/ LOCATION OF THE THREE PLACES 
MAKE "Y HEIGHTS :NUMBER 
SETFILL [1 1 1] 

MAKE "GFILL "TRUE; ENABLE FILL 

BUILD :NUMBER 10 "LI 

TYPE [FROM PLACE 1 TO PLACE ?] 

TRANSPOSE :NUMBER "LI WORD "L RQ 
END 

TO BUILD :N :S :P 
IF :N =0 [STOP] 

PLACE :N :S :P 
MAKE :P SE :S THING :P 
BUILD :N - 1 :S + 10 :P 
END 

First try this program out with small towers. Note the increase in the time 
required as the number of disks is increased. 
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The entire package of procedures for the Towers of Hanoi can be 
investigated with the help of POCALL. The analysis yields the following 
results: 


TOWER :NUMBER 
HEIGHTS :N 
HEIGHTS :N 
BUILD :N :S :P 
PLACE :N :S :P 
BUILD :N :S :P 
TRANSPOSE :N :FROM :TO 
MOVE :FROM :TO 
ON :P :S 

PLACE :N :S :P 
OFF : P 

PLACE :N :S :P 
TRANSPOSE :N :FROM :TO 

We still need the procedure HEIGHTS, which outputs a list of the vertical 
positions of the disks. 

TO HEIGHTS :N 
IF :N = 1 [OP -60] 

OP SE HEIGHTS :N-1 (11*:N-71) 

END 

HEIGHTS builds the output list recursively in such a manner that the 
self-call is performed until the lowest position is reached and its position is 
returned (-60). While traveling back to the initial level, the position of the 
next higher disk is added to the list. 
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13.7 Iterative versus recursive problem solutions 


Disregarding recursion as a method of repetition, understanding the 
recursive problem solutions presents real difficulties for many users. You 
should take sufficient time to understand the execution of these programs. 

The knowledge pays off later on. If a problem is inherently more 
complicated, then recursive solutions can often be found more easily than 
iterative solutions. You can first look for a recursive solution (to have at 
least one solution available), and then try to find an iterative method later, 
because iterative solutions generally work faster. 

We use the Towers of Hanoi for another example. You will probably not be 
able to specify an iterative method directly, because you have to develop 
your own algorithm for it. Take a look at what happens in the recursive 
solution. You soon see that the smallest of the disks is moved every second 
step. You then have no choice for the next move to avoid the repetition of 
moves. Nothing can be placed on top of the smallest disk. Between the two 
remaining tower positions, there is only one possibility—because one of the 
top two disks is smaller than the other. 

Now you have to pay attention only to the movement of the smallest disk. It 
turns out that, from a given initial condition and destination position, this 
disk always moves in the same direction. You must think of the three 
towers as arranged in a circle. Whether the smallest disk is moved 
clockwise or counterclockwise depends on the number of disks and the 
specified destination position. The procedure must therefore run as follows: 

• Move the smallest disk by one unit. 

• Determine which of the two top disks may be moved. 

• Check to see if we're done. 

When you see the essential points of the procedure, the solution is quite 
simple: 
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TO STRATEGY :T1 :T2 :T3 

; ITERATIVE SOLUTION FOR TOWERS OF HANOI 
LABEL "START 

MAKE "T3 :T1 MAKE "T1 : T2 

MOVE :T3 :T2; MOVE THE SMALLEST DISK 

MAKE "T2 SUCCESSOR :T1 

IF EMPTYP THING :T3 [MOVE :T2 :T3 GO "START] 

IF EMPTYP THING :T2 [MOVE :T3 :T2 GO "START] 

IF WIDTH :T3 > WIDTH :T2 [MOVE :T2 :T3 GO "START] 

MOVE :T3 :T2 GO " START 

END 

TO SUCCESSOR :L 

OP ITEM LAST :L [L2 L3 LI] 

END 

TO WIDTH :L 

OP LAST THING :L 

END 

The procedure STRATEGY is the iterative replacement of the procedure 
TRANSPOSE, so the last line of TOWER must be: 

STRATEGY "LI "L2 "L3 

STRATEGY uses the two subroutines SUCCESSOR and WIDTH. 
SUCCESSOR outputs the name of next tower in cyclical order. If the input is 
LI, then L2 is returned, L2 returns L3, and L3 returns LI. WIDTH returns 
the width of the top disk on the stack in question. 

First the smallest disk is moved, and the destination is determined by the 
procedure SUCCESSOR. In the next move the two remaining towers are 
examined. If one of them is empty, we know what move we have to make. 

If this is not the case, we must check to see which top disk is larger, done 
with the help of WIDTH. 

The iterative solution is not as general as the recursive solution because you 
cannot specify where the tower ends up. This depends on the number of 
disks. If you want to specify the destination position beforehand, the 
program must be generalized so that it determines the direction of rotation of 
the smallest disk. This is left up to you as a practice problem. 
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And there is yet another problem: When the program is done it simply ends 
with an error message because no termination was provided with the jump 
instruction GO. The simplest way to resolve this is a small modification to 
the procedure OFF: 

TO OFF :P 

LOCAL "L MAKE "L THING :P 

IF EMPTYP :L [THROW "TOPLEVEL] 


The instruction THROW "TOPLEVEL is new. It causes the program to 
terminate, like STOP, but execution does not jump back to the calling 
program. The entire program execution is terminated and the system is again 
ready for input. The effect of THROW "TOPLEVEL is comparable to 
manual termination with the help of <Control>G. The LOGO word THROW 
is discussed in greater detail in Chapter 18. 
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Practice problems 

1) Determine how often disks are moved by the Towers of Hanoi 
program for 2, 3, 4 ... disks. 

2) An interest of p percent is to be paid on an initial capital C. Write a 
recursive procedure that outputs the total balance after N years. 

3) A person pays a certain sum R per year into an account with an 
interest rate of p. Formulate a recursive program that outputs the 
balance of the account after N years. 

4) Investigate the following program: 

TO TREE :LENGTH :ANGLE :N 
IF : N = 0 [STOP] 

FD : LENGTH 

LT :ANGLE TREE :LENGTH :ANGLE :N-1 
RT 2*:ANGLE TREE :LENGTH * .9 :ANGLE :N-1 
LT :ANGLE BK :LENGTH 
END 

Call: CS PU SETPOS [30 -170] PD TREE 30 17 9 

5) Generalize the iterative solution for the Towers of Hanoi so that 
the destination position can be specified. In addition to the 
procedure SUCCESSOR, you have to write a similar procedure, 
PREDECESSOR. 
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Advanced Graphics Programming 


New language elements: 

TURTLETEXT, SETTEXT, GETTEXT, MOUSE 

Programs: 

ERASE . TEXT, SET. POINT, ERASE . POINT (single-point commands), 
WAVE, C, LDRAGON, RDRAGON, HILBERT, SIERPINSKI, FILLING 
(with the mouse), PPICTURE, RINGS, ALIGN (drawing with alignment 
point), DICE, POINT, VECTOR, TETRAHEDRON (three-dimensional 
drawing), SURFACE (relief drawing) 


14.1 Labeling graphics 

The GRAPHICS DISPLAY and LOGO DIALOGUE windows are 
independent of each other. The graphics cannot therefore be labeled simply 
with PRINT, because the output of PRINT appears in the DIALOG 
window. 

Labeling graphics is an independent drawing process. ST LOGO uses the 
word TURTLETEXT for this process: 

TURTLETEXT "A 

The above outputs the letter A at the turtle position. Words and lists can also 
be printed instead. 

TT "HALLELUJAH 

TT [THIS IS A SENTENCE] 

TT [HERE IS [A NESTED] LIST] 

TURTLETEXT removes the outer square brackets of a nested list like 
PRINT or TYPE, but prints the inner brackets. 
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If more text is drawn at the same location with TURTLETEXT, the 
characters overwrite each other. This type of representation is handled in the 
graphics mode just like drawing figures. Correspondingly, you can also 
erase a word with PENERASE: 

PD TT "HALLELUJAH PENERASE TT "HALLELUJAH 

If the length of the printed text is not known ahead of time, it cannot be 
erased without an additional step. This can be aggravating—sometimes the 
text is not completely readable if other characters or parts of drawings lie 
under it. This can be alleviated by drawing a filled rectangle where the text 
will go: 

TO ERASE.TEXT :N 

MAKE "GFILL "TRUE SETFILL [0 1 0] 

BOX (SE POS :N * 8 12) 

END 

Try this: 

ERASE.TEXT 3 TT "SAM 

The word SAM should be easily readable on any background. With variable 
words you can use COUNT: 

MAKE "WORD "TITLE ERASE.TEXT COUNT :WORD TT :WORD 

TURTLETEXT lets you precisely control the position of text output on the 
graphics window. This is important because there is no other means of 
positioning the text output in the dialog window except for CLEARTEXT. 
The LOGO DIALOGUE window can be erased with CT, but it doesn't have 
any effect on the GRAPHICS DISPLAY window output. 

Flexible screen layout can really only be accomplished in the GRAPHICS 
DISPLAY window. For such applications you should always erase the area 
where the text will be written. 
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14.2 Setting and erasing points 


Turtle graphics creates a drawing from the trace the turtle leaves behind as it 
moves across the screen. We can also create individual points on the screen 
and then erase them again. These points can be placed without moving the 
turtle. There is no separate word for this operation—a distance of 0 is used 
with FORWARD: 

FORWARD 0 

The above command line creates a single point, assuming the pen is down. 
PENERASE FORWARD 0 

This command line erases a point at the current location of the turtle. 

If these functions are used often, separate procedures are useful: 

TO SET.POINT :X :Y 

PU SETPOS SE :X :Y PD 

FD 0 
END 

TO ERASE.POINT :X :Y 
PU SETPOS SE :X :Y 
PENERASE FD 0 PD 
END 

SET.POINT 50 50 REPEAT 200 [] ERASE.POINT 50 50 

In addition to setting and erasing points, it's also possible to invert 

individual points in the graphics window. Formulating a corresponding 
procedure is easy: replace PENERASE in ERASE . POINT with 
PENREVERSE. Most graphics systems also offer a test command that can 
be used to see whether or not a given point on the screen is set. 
Unfortunately, ST LOGO does not have such a command in its vocabulary. 
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14.3 Density distribution 


You can create interesting graphics with lines, sections of polygons and 
filled, colored or shaded surfaces. But the distribution of individual points 
can also be used for graphic purposes. Points are usually distributed 
randomly with random numbers, enabling us to produce refined effects like 
the shading effects under various lighting conditions. 

Here we will explain just the principle of point distribution with some 
simple examples. An even distribution of points is boring—to make things 
interesting we need fewer points in some areas and more in others. 

The graphics window is two-dimensional. For different quantities of points 
on the screen, a number whose value determines whether the point is set or 
not must belong to each individual screen point, or pixel. Then the number 
assigned to each point is compared to a random number, to achieve random 
distribution of the points. If a point is already set and the random number is 
less than the assigned number, then there is a greater probability of points 
occurring in areas with large assigned numbers. 

These distributions of single points are determined according to a function 
which assigns a number to each possible point on the screen. Because the 
numbers created with RANDOM are all positive numbers, the function values 
should also be positive. The largest possible value should equal the one 
used as input for the call to RANDOM. The possible shades of the graphic are 
determined by the area in which the random numbers are set. 


Circular waves 

When you throw a stone into a quiet pond, its surface is rippled with 
circular waves that move outward toward the shore. If we took a photo of 
these ripples we'd see peaks and valleys in the waves. This snapshot can be 
represented by a distribution of points. 

The function that yields a suitable number for every possible screen point 
must yield the same values at a given distance from the center. The SIN and 
COS functions are useful for representing the circular waves: 
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TO WAVE :Y 

IF :Y < 150 [STOP] 

PU SETY :Y 
MAKE "X -150 

REPEAT 300 [MAKE "X :X+1 IF 10*(1+COS F :X :Y) > 
RANDOM 20 [PU SETX :X PD FD 0]] 

WAVE :Y-l 
END 

TO F :X :Y 

OP 10 * SQRT :X*:X + :Y*:Y 
END 

The distribution function is contained in the procedure F, which must be 
changed for other distributions. The result of F in this example is the 
distance of the point with coordinates X and Y from the coordinate origin. 
Multiplication by the factor 10 enlarges the results—you can change this 
factor as you see fit. 

The procedure described above takes place in the list of the REPEAT line in 
WAVE. This line processes all the points on a horizontal line in the graphics 
window. The cosine of the distance from the coordinate origin represents a 
waveform. The number 1 is added to ensure that no negative function 
values result. The function values then lie between zero and two. 
Multiplying by 10 then stretches the possible values to a range up to 20. 
Following this is the comparison with the random number in this area. 

The program is simple and creates a graphic effect with the random 
distribution. But because all of the possible screen points must be 
processed, the program takes a long time to execute. You should run these 
types of applications when you 're not going to use the ST for a few hours. 

When the graphic is done (finally!) you can save it: 

SAVEPIC "CWAVE 

It may be easier to use the File menu here. If you want to view the graphic 
at maximum screen size, click the upper right comer in the GRAPHICS 
DISPLAY window before you run the program. Corresponding changes in 
CWAVE must then be made to take advantage of the larger screen size. 
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The point distribution often encompasses various symmetrical properties 
that can reduce the computing time. Here the circular waves are even 
rotationally symmetrical. If we made complete use of this symmetry, we 
would take away much of the random character of the graphic. We'll just 
create half of the screen by mirroring the first half: 

TO WAVE :Y 

IF :Y < 150 [STOP] 

PUT SETY :Y 
MAKE "X -150 

REPEAT 150 [MAKE "X :X+1 IF 10*(1+COS F :X :Y)>! 
RANDOM 20 [PU SETX :X PD FD 0 PU SETX -:X PD FD 0]] 
WAVE : Y-l END 


Other distributions 

Other distributions can be created by changing the procedure F. There are 
no limits to the experiments possible with this. 

F : X : Y 

MAKE "YQ :Y*:Y 

MAKE "LX :X+50 MAKE "RX :X-50 

OP 8* ((SQRT :YQ + :LX*:LX) - SQRT :YQ +:RX * :RX)) 

END 

This function F returns the difference of the distances of a screen point from 
the coordinates (50,0) and (-50,0). The geometric location of all points with 
a set value of this difference is a hyperbola. Actually the created graphic 
shows a distribution of points on several hyperbolas. 

If the sum of the distances is taken instead of the difference in procedure F, 
the result is a distribution with an elliptical structure. 

Try the following examples: 

TO F :X :Y 

MAKE "ANGLE TOWARDS [0 0] 

OP 4*(SQRT :X*:X+: Y* : Y) - :ANGLE 
END 

In this example, the angle of ray from the coordinate origin is another 
variable. The corresponding distribution forms an Archimedean spiral. 
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The following example uses the structure of a logarithmic spiral. The 
rotational symmetry to the coordinate origin was also used in wave. 

TO F :X :Y 

OP 2*(TOWARDS [0 0])+500*LOG SQRT :X*:X+:Y*:Y 
END 

TO WAVE :Y 
IF :Y<0 [STOP] 

MAKE "X -150 

REPEAT 300 [MAKE "X :X+1 IF 10*(1+COS F :X :Y)>! 
RANDOM 20 [PU SETPOS SE :X :Y PD FD 0! 

PU SETPOS SE -:X -:Y PD FD 0]] 

WAVE :Y-1 
END 

Distributions like the graphic in Figure 14.1 find applications in many areas 
of natural science, where random distributions play an important role. 


Desk File Run Edit Settings 



Figure 14.1 


265 









Abacus Software 


ST LOGO User’s Guide 


HILBERT and SIERPINSKI curves 

The next two examples are curves which can be used to fill surfaces with 
complex patterns. The first was invented by the German mathematician 
David Hilbert, and the second by the Polish mathematician Wraclaw 
Sierpinski. 


TO HILBERT :LENGTH :LEVEL :ROTATION 
IF :LEVEL =0 [STOP] 

IF :ROTATION [LT 90] [RT 90] 

HILBERT :LENGTH :LEVEL - 1 NOT :ROTATION 
FD :LENGTH 

IF :ROTATION [RT 90] [LT 90] 

HILBERT :LENGTH :LEVEL - 1 :ROTATION 
FD :LENGTH 

HILBERT :LENGTH :LEVEL - 1 :ROTATION 
IF :ROTATION [RT 90] [LT[90] 

FD :LENGTH 

HILBERT :LENGTH :LEVEL - 1 NOT :ROTATION 
IF :ROTATION [LT 90] [RT 90] 

END 

Hilbert curves are not closed curves. Their basic pattern has the shape of a 
U, which you can create with 

HILBERT 50 1 "TRUE 

The third input specifies the rotation. If it is TRUE, the U is open to right, 
while if it is FALSE it is open to the left. At the next level a total of four 
such figures are created with both orientations and joined by a forward step. 

The use of the quantity ROTATION has the advantage that the same program 
can be used for both possible orientations—we don't need two procedures 
as in the previous examples LDRAGON and RDRAGON. 

ROTATION represents a logical value, namely TRUE or FALSE. The LOGO 
word NOT is used to invert the current state of this value: 

NOT "TRUE ANSWER :FALSE 

It is especially impressive to combine Hilbert curves with increasing order 
in one graphic. If the step length halved and the starting point is moved 
accordingly, the Hilbert curve of the next higher order winds along the 
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previous level. The outline programs HILBERTK and HILBERTPLOT 
demonstrate this principle. 

TO HILBERTPLOT; NESTED HILBERT CURVES 

CS HILBERTK 75 -75 1 150 6 

END 

TO HILBERTK :X0 :Y0 :I :H :L 
IF :L=:I [STOP] 

PU SETPOS SE :X0 :Y0 PD 
HILBERT :H :I "TRUE 

HILBERTK :X0+:H/4 :Y0-:H/4 :1+1 :H/2 :L 

END 



Figure 14.2 


HILBERTPLOT clears the screen and sets the proper starting conditions so 
that all subsequent curves up to the fifth order are displayed in the 
GRAPHICS DISPLAY window (half size). 

Sierpinski curves produce even better-looking graphic figures. However, 
the recursive structure is somewhat harder to understand. First we'll give 
the basic procedure for creating a Sierpinski curve: 
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TO A :I; SIERPINSKI SEGMENT 
IF :1=0 [STOP] 

A :1-1 RT 135 FD :L LT 45 
A :1-1 FD :L2 LT 180 
A :1-1 RT 135 FD :L LT 45 
A : 1-1 
END 

Ignore the self-call at the start of each line for the moment. The procedure A 
then contains three forward steps with the two lengths L and L2. Between 
these are rotations by 45 degrees (remember that 180 minus 135 also yields 
45!). Try this: 


MAKE "L 50 MAKE "L2 :L*SQRT 2 A 1 

The two lengths used are related to each other much like the sides of a 
square are related to its diagonals. Note what happens as a result of the 
self-call at the start of each of the four lines: 

CS A 2 CS A 3 ... 

The actual Sierpinski curve consists of four such segments created by the 
procedure A, which stand at right angles to each other. These four segments 
are connected to each other with the absolute direction 45, 135, -135, 
- 4 5 degrees for a closed Sierpinski curve. 

REPEAT 4 [A :I RT 135 FD :L LT 45] 

The I signifies the level of recursion. You can best determine through 
experimentation that the rotations are selected correctly in this REPEAT line 
as they are in A. 

It is also interesting to overlap subsequent orders of these curves. This is 
accomplished with the two outline programs SIERP IN and SIERPINSKI. 
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TO SIERPIN :L :L2 :X0 :Y0 :I 

IF :1=:N [STOP] 

PU SETPOS SE :X0 :Y0 PD 

REPEAT 4 [A :I RT 135 FD :L LT 45] 

SIERPIN :L/2 :L2/2 :X0-:L2/2 :Y0+ :L2/4 :I+1 
END 

TO SIERPINSKI : SIZE :N 
CS HT 

SIERPIN :SIZE :SIZE*SQRT 2-:SIZE 2.1*:SIZE 1 
END 

The starting point and the two lengths for the first level are passed to 
SIERPIN by SIERPINSKI. SIERPIN creates the curve on level I in the 
REPEAT line. The next level is initiated with a suitable starting point and 
halved length. Set the graphics window to maximum size and call it with: 

SIERPINSKI value, value 

Here too, the higher-level curves wind around the curve of the previous 
level. Your values will differ, but your graphic should look like this: 



Figure 14.3 
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If you like to experiment with graphic effects, use SETLINE to expand the 
possibilities of these curves. For example, insert a line like the following 
into HILBERTK: 

SETLINE (SE 1 :N-:I 1) 

The width of the line then varies with the order of the curve. The first 
parameter for the various types of lines can be changed in the same manner. 
Try drawing the curves with inverted colors, e.g. white lines on a black 
background. 

These four examples are typical of the elegant effects that can be obtained 
using recursion in your programs. The same results could be obtained 
without recursion, but the programs would be more complicated. Even so, 
there are programming problems where it makes little sense to use 
recursion. 
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14.4 Graphic manipulations with the mouse 


Many surfaces in your graphics window are a result of overlaid Hilbert or 
Sierpinski curves. The graphic can be further enhanced by filling these 
surfaces with patterns. 

If the surfaces are not filled by the program that creates the surface borders, 
the turtle must be moved to the area to be filled by sequences of commands 
like FD, RT, SETH, etc. But it is much easier to simply point to the surface 
with the mouse pointer. 

Up to this point we've only used the mouse to click LOGO or GEM menus. 
You've no doubt noticed that the ST immediately displays the movements of 
the mouse on the screen. That's because the mouse is serviced continually 
and is independent of programs running on the computer, including LOGO. 
We can use the mouse movements in programs only if we read the status of 
the mouse within the programs themselves. 

The status of the mouse is determined with the LOGO word MOUSE. 

MOUSE 

The answer will be something like [110 -58 FALSE FALSE TRUE]. 

MOUSE returns a list of five elements as its result. The two numbers 
represent the position of the mouse pointer. The fifth element indicates 
whether or not the mouse pointer is found in the graphics window. The 
answer is also TRUE if the pointer is a section of the LOGO DIALOGUE 
window covering the graphics window. 

The third and fourth elements in the result of MOUSE indicate the status of 
the two mouse buttons. The right button is available for any use. However, 
when you use the left button you must remember that it also controls 
various GEM and LOGO functions. 

This program for filling surfaces serves as an example of the use of MOUSE: 
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TO FILLING 
PU HT 

LABEL "START 

IF ITEM 4 MOUSE [SETPOS PIECE 1 2 MOUSE FILL] 

GO "START 
END 

Here the repetition is written as an endless loop with GO. After reading the 
right button with ITEM 4 MOUSE, the coordinates are removed from the 
result of MOUSE with PIECE and the invisible turtle is placed at the location 
of the mouse pointer. The surface is then filled with FILL. 

The fill pattern could also be specified in the program, but it's easier to do 
this directly in the Settings menu. The menu is processed while the 
program is running, so changes are effective immediately. 

This gives us an easy way to manipulate graphics on the ST. For a 
demonstration we'll create a graphic with randomly placed rectangles: 

CS MAKE "GFILL "FALSE 
REPEAT 30 [BOX (SE ! 

(RANDOM 300)-150 (RANDOM 300)-150 RANDOM 100 RANDOM 120) 
FILLING 

Now select the Graphics option in the Settings menu. Select 
something like style 3, index 9 and then click OK. You can then fill surfaces 
on the screen with a coarse diamond pattern. 

The pattern created can be processed further if you now select style 2, 
index 1 in the Graphics option. Now the diamonds created in the 
previous step can be shaded individually. 

The possibilities for graphic manipulations are very limited with filling of 
surfaces. New surfaces can result from various patterns, and are then 
treated just like the original surfaces. This is also why it is not easy to 
remove a pattern once it is drawn. 
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14.5 Graphics with surfaces 


The variations available for filling surfaces can be used in many ways for 
diverse graphic effects. Different fill effects can also be used with a 
monochrome monitor as a substitute for varied color combinations. A 
familiar figure serves as an example: 

PARALLELP :L :H 
MAKE "GFILL "TRUE 
(LOCAL "X "Y "XI "X2 "Yl) 

MAKE "X XCOR MAKE "Y YCOR 
MAKE "XI :X+:L MAKE "X2 :X1+:L 
MAKE "Yl :Y-:L/2 

POLY (SE :X :Y :X1 :Y1+:L :X2 :Y :X1 :Y1 :X :Y) 
POLY (SE :X :Y :X :Y-:H :X1 :Y1-:H :X1 :Y1) 

POLY (SE :XI :Y1 :X1 :Y1-:H :X2 :Y-:H :X2 :Y) 

PU SETX :X2 
END 

PARALLELP creates a perspective picture of a rectangular parallelpiped 
(that's a 3-D rectangle to the rest of us). L determines the size of the primary 
surface and H determines the height. The three visible surfaces are now 
filled with various patterns. You can use the method described in the 
previous section or you can include the filling in PARALLELP. To do this, 
insert a line with SETFILL in front of each of the three lines with POLY: 

SETFILL [221], SETFILL [2 4 1], SETFILL [2 8 1] 

The filling distinguishes the surfaces from one another more clearly, and 
makes the spatial perspective easier to see. We need many such 
parallelpipeds for the entire graphic: 

TO ROWS :X :Y :L :H 
IF :Y+170 <0 [STOP] 

SETPOS SE :X :Y 

REPEAT 5 [PARALLELP :L :H] 

SETPOS SE :X-:L (:Y-:H-:L/2) 

REPEAT 5 [PARALLELP :L :H] 

ROWS :X (:Y-:H-:H-:L) :L :H 
END 
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TO PPICTURE 

CS PU HT MAKE "GFILL "TRUE 

ROWS -180 170 40 25 

END 



Figure 14.4 

Often only parts of graphic images are actually interpreted as 
three-dimensional, which can easily lead to confusion. You may have seen 
the drawings of the Dutch artist M. C. Escher, which derive their special 
charm from this effect. We have included a simple graphic of this type: 
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TO RINGS :R :L; OVERLAPPING CIRCLES 
;R RADIUS, L CENTER OFFSET 

HT PU MAKE "GFILL "FALSE; INITIAL CONDITIONS 
(LOCAL "H "ALPHA) SETX -9*:L/PI 
MAKE "H SQRT 4*:R*:R/(:L*:L)-1 
MAKE "ALPHA 89-ARCTAN 1/:H; OPENING ANGLE 
REPEAT 18 ! 

[ARC (SE POS :R HEADING+:ALPHA HEADING-:ALPHA) FD :L RT 20] 

;18 ARCS 

MAKE "GFILL "TRUE; FILL EVERY OTHER ARC 
SETFILL [2 8 1] BK 2 

REPEAT 9 [FILL FD 5 FD :L RT 20 FD :L RT 20 BK 5] 

END 

Try this program out with the call: 

RINGS 50 50 

Eighteen disks with radius R are overlapped on the screen, as in 
Figure 14.7. The center points lie at the comers of a 18-comer polygon 
with side length L. When circles are placed over each other, only a crescent 
shape of the lower circle remains. The crescent can be drawn with the 
LOGO word ARC. Although the angle of opening must be calculated, we 
won't go into the mathematics here. 

Note: If you check this solution you probably expect the angle 90 in the line 
MAKE "ALPHA, and not 89. The 89 is used to ensure that the arcs drawn 
by ARC actually meet despite the limited accuracy of arc. This is important 
only for filled surfaces, however. 

The three-dimensional impression is created by filling every other crescent 
in the program RINGS. The filling cannot take place until the crescents exist 
as closed surfaces. The turtle is therefore sent around the 18-comer polygon 
The small additional movement ensures that the turtle is located within the 
surface when the FILL command is executed. 
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DfKk File Run Edit Settinas 



Figure 14.5 


You could also use the program FILLING from the previous section with 
this example. The nine unfilled disks could be shaded or filled with other 
patterns, for example. You could also overlay several rings with varying 
diameters. 
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14.6 Three-dimensional graphics 


Three-dimensional graphics on a computer is a very interesting topic—but 
also very difficult. Three-dimensional graphics require certain mathematical 
foundations which we cannot go into here. Therefore we'll just very briefly 
cover the representation of three dimensions on the ST. In place of 
mathematical calculations, we'll use the possibilities of turtle graphics. 


Vanishing points 

One possible way to represent three dimensions in the drawing plane is the 
use of a vanishing point. All lines parallel to the third axis then meet at the 
vanishing point. 

This spatial represention is not easy to construct, even for a simple figure 
like a cube. That's because lines that lie in the picture's background become 
shorter, but the reduction depends on their place relative to the vanishing 
point. 

Here's the basis of the program VANISH: 

TO VANISH :SIDE :DIRECTION :DESTX :DESTY :VANISHX :VANISHY 
SETH TOWARDS SE :VANISHX :VANISHY 
FD : SIDE SETH DIRECTION 
LABEL "START 

FD 1 IF PARALLELP :DESTX :DESTY :VANISHX :VANISHY 2 ! 

[OP POS] [GO "START] 

END 

TO PARALLEP :X1 :Y1 :X2 :Y2 :TOL 

OP ABS REMAINDER (TOWARDS SE :X1 :Y1) - ! 

(TOWARDS SE :X2 :Y2) 180 < :TOL 
END 

VANISH draws a line of length A from the position of the turtle in the 
direction of the vanishing point. The turtle then follows the direction 
specified by the input values. After each small forward step, both the 
vanishing point and the point specified by X, Y on the screen are identified. 
When both points are determined to be in parallel directions to each other, 
VANISH is ended. The coordinates of the last point reached are returned as 
the result. The procedure is relatively slow, but it requires no mathematics. 
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The check word PARALLELP determines if the turtle sees the two points 
(XI, Y2) and (X2, Y2) in the same or opposite direction. Because of the 
limited resolution, the angle match can be tested only within a limited range. 

The closer the two points are to the turtle, the less accurate the angle 
determination becomes. 

TO CUBE :SIDE :VANISHX :VANISHY 
HT 

HOME REPEAT 4 [FD :SIDE LT 90] 

HOME FD :SIDE 

MAKE "U VANISH :SIDE/2 180 0 0 :VANISHX :VANISHY 
HOME FD :SIDE 

MAKE "0 VANISH :SIDE/2270 -:SIDE :SIDE :VANISHX :VANISHY 

SETPOS SE - : SIDE :SIDE 

END 

The program's vanishing point should lie on the right side of the screen. 

Here is a sample call: 

SETPAN [50 100] CUBE 100 200 200 

The bordering surfaces can be filled with a pattern to enhance the 
three-dimensional effect. The techniques described in Sections 14.4 and 
14.5 can be used for this purpose. Generally it is easiest to fill surfaces after 
they are drawn (use the procedure FILLING from Section 14.4). 


Vectors and points in the three-dimensional coordinate system 

It's difficult to imagine the position of points, lines, and bodies in space. 
It's easy to construct a computer representation using parallel projection in a 
plane—but it also takes a good deal of time. The following is only one 
example of a perspective: 
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TO AXES :N :UNIT 
SETH 0 HT PD 

REPEAT 2 [ORIGIN AXIS :N :UNIT RT 90] 

SETH 60 ORIGIN AXIS :N 0.7*:UNIT 
END 

TO AXES : N :L 
FD :N*:L 

RT 30 REPEAT 3 [RT 120 FD 10] LT 30/ ARROW TIP 
ORIGIN 

REPEAT :N-1 [PD FD : L PD RT 90 FD 3 BK 6 FD 3 LT 90] 
END 

TO ORIGIN 

PU SETPOS [-50 -50] PD 
END 

Cal the procedure with: 


AXES 15 20 

The procedure AXES draws the three coordinate axes, where the second 
runs into the screen background. The lines pointing in this direction are 
displayed parallel to each other at an angle of 60 degrees. The lengths of the 
lines are multiplied by the factor 0.7. The angle and factor can be changed if 
the spatial impression is not satisfactory. The reduction in the third direction 
is necessary because this direction would otherwise appear oversized. 

Units are marked on the axis, where the input value N in AXES specifies the 
desired length of the axis in units. The coordinate origin is set with 
ORIGIN, so it is easy to change. 

To display points specified by three coordinates on the screen, the turtle 
must proceed from the origin and make movements parallel to the coordinate 
axes. The length of the movement on the first and third axes is given 
directly by the coordinates, but the scaling factor 0.7 must be taken into 
account for the second. The unit (LOGO graphic steps) is used in the 
procedures as a global quantity, and must be set at with make "UNIT... 

This method with the turtle graphics does not calculate the coordinate values 
in the drawing plane but determines them through drawing constructions. 
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TO POINT :POINT 
ORIGIN 

OP VECTOR :POINT 
END 

TO VECTOR :POINT 
ST PU 

SETH 90 FD :UNIT *ITEM 1 :POINT 
SETH 60 FD . 7*:UNIT *ITEM 2 : POINT 

SETH 0 FD :UNIT * ITEM 3 :POINT 
HT PD 

FD 1 BK 2 FD 1 RT 90 FD 1 BK 2 FD 1; CROSS 

OP POS 

END 

TO VECTOR.DIR :VECTOR 
ORIGIN 

OP TOWARDS POINT :VECTOR 
END 

TO LINE :START :END 
(LOCAL "AK "EK) 

MAKE "AK POINT :START 
MAKE "EK POINT :END 
PD SETPOS :AK 
END 

A point or vector is determined by three numbers in three-dimensional 
space. These specifications are combined in a list in the procedures. POINT 
and VECTOR output the screen coordinates of points in the form of a 
sentence. They can be used for additional drawings. 

POINT calls VECTOR. The difference between them is that POINT moves 
the turtle to the origin first, while VECTOR starts the turtle from its current 
position. The coordinates of a point always refer to the origin while a vector 
can be relative to any point in space. 

The procedure LINE determines the location of two points spatially on the 
screen and connects them with a line. Spatial surfaces and bodies can be 
constructed in this manner. 
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The procedure VECTOR.DIR outputs as its result the direction on the 
screen—always relative to the zero setting of the turtle—so that lines, for 
example, can be drawn in the specified direction. 

When points or vectors are drawn on the screen, the movements of the turtle 
are visible and the pen is up. The point is marked with a small cross . The 
turtle is hidden so that the exact location of the point can be seen. 

Examples: 


MAKE "UNIT 30 LINE [2 21] [-222] 

The above example draws a line. 

POINT [1 -1 2] VECTOR [Oil] 

This example displays two points. The second point results from vector 
addition. This allows you to see the addition of vectors in three-dimensional 
space. The second point, which results as the end point of the vector 
addition, must be created according to the rules of vector calculation: 

POINT [1 0 3] 

The following procedure serves as an example of the representation of 
spatial bodies: 


TO TETRAHEDRON :S 
(LOCAL "A "B "C "D) 

MAKE "A (SE 0 0 :S) 

MAKE "B (SE :S :S 0 ) 

MAKE "C (SE -:S 0 0 ) 

MAKE "D (SE 0 -:S 0 ) 

LINE :A :B LINE :A :C LINE :A :D 
LINE :B :C LINE :B :D 
LINE :C :D 
END 
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14.7 Surfaces in space 


How can we represent a mountain range in the drawing plane? 

Topographical charts suggest the shape of the land from the altitude lines— 
those lines connecting points of the same altitude. Using these maps 
requires practice and a well-developed sense of imagination. 

Landscapes can also be represented with relief maps. For relief maps, the 
hidden parts must be calculated and covered. We will develop a solution for 
this problem in this section. 

The landscape is defined through a function with the two variables U and v. 
The simplest is a function which is dependent only on the distance from the 
coordinate origin. They are simple examples of the function dependency, 
but they offer interesting structures nonetheless. The angle functions SIN 
and COS are used to achieve the wavy aspect of a landscape. The height of 
the crest can be varied by multiplying by an additional function, such as the 
exponential function: 

TO FUNCTION :U :V 

MAKE "R SQRT :U*:U+:V*:V 

OP 150*(COS 4*:R)*EXP -:R/50 

END 

The U-v plane must be displayed in perspective so that the function values 
give the value of the third coordinate of a point on the surface. Given the 
resolution of the ST, it doesn't make sense to plot all of the points on the 
surface that can be drawn. Instead we calculate the values for a grid of u-v 
values, and then connect the points to each other. We use the simplest 
method for doing this: the surface is cut into layers and the resulting curves 
are placed over each other. 

TO SURFACE :X0 :Y0 
IF :Y0 > 150 [STOP] 

SETPAN SE :X0 :Y0 
MAKE "V :Y0; CONSTANT 

PU SETPOS SE -150 FUNCTION -1500 :V PD; START PT 
CURVE -150 0 
SURFACE :XO+7 :Y0+5 
END 
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TO CURVE :X :Y 
IF :X > 150 [STOP] 

(LOCAL "XN "YN "XI) MAKE "XN :X+5 
MAKE "XI :X+l MAKE "YN FUNCTION :XN :V 
; ERASE HIDDEN PARTS 

POLY (SE :XI :Y :X1 :UR :XN :UR :XN :YN :XI :Y) 
SETPOS SE :XN :YN; DRAW CURVE 
CURVE :XN :YN 
END 

The surfaces are cut so that the variable V remains constant. The curve for a 
set V is drawn with the procedure CURVE. The starting point is set in 
SURFACE. The displacement of the curves from each other is controlled by 
the values X0 and Y0. Here the origin is simply shifted with SETPAN, to 
avoid converting the screen coordinates. 

CURVE works like the corresponding procedure in the function drawing 
program of Chapter 11. However, in this application we must ensure that 
hidden parts of the surface are not present in the picture. 



Figure 14.6 
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Removing the hidden lines from the graphics is really quite a difficult 
problem. Here's a simple solution: 

The curves are drawn from the back to the front. Each time a curve is 
drawn, the area beneath it on the screen is erased. This solution is simple, 
but it has the disadvantage that the surfaces can be seen only from the top 
or, with appropriate modifications, the bottom. 

The surface is erased in CURVE with the LOGO word POLY. It is clear from 
the inputs that a trapezoid is drawn under the curve. Try setting the value 0 
for the color and style in the Graphics option of the Settings menu, 
and GFILL to TRUE. The border is invisible and the inside is erased at the 
same time. You can also give these parameters: 

MAKE "GFILL "TRUE SETFILL [0 1 0] 

A lower border is assumed to be under the global name UR. This can be the 
lower border of the graphics window, but it can also be the smallest 
function value. In the example defined with FUNCTION, the smallest value 
is (-61). 

Try this: 


MAKE "UR -61 SURFACE -100 -100 
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Practice problems 

1) Experiment with the variations in type style that result from 
different inputs to SETTEXT. 

2) Use the method discussed in Section 14.3 for density distributions 
to display the function used in Section 14.7 for the relief map. 

3) Draw many line segments that all meet in one point. 

4) Draw a house with a vanishing-point perspective. 
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More work with lists 


New Procedures: 

SUBSTITUTEIT, REPTAIL, TEST, IFTRUE, IFFALSE, 

OR, AND 

Programs: 

SUBSTITUTE, REPLACEIT, PARAGRAPHEXCHANGE, 

GREETINGS (uses pattern recognition in a limited conversation) 

Character sequences that aren't divided by blank spaces are called words in 
the LOGO programming language, no matter what their function is. You 
use words to build sentences by separating them with blank spaces. Also, 
you surround the sequence of words with square brackets. We call this 
sentence a list. Lists are very flexible data structures. Lists may have both 
words and other lists as elements. 


15.1 Replacing list elements 


To manipulate sentences, you need to be able to replace one element in a list 
with another. To do this we must find the element to be replaced, then delete 
it from the list, and then put the replacement word in its place. You might 
also want to insert an element before or after a certain item in the list. 
Erasing and inserting elements are carried out in much the same way. 

List elements are erased with the LOGO procedure FIRST. The procedure 
LAST is used if we want to delete from the end of the list. We can reinsert 
the item with the FPUT procedure. 

FPUT (OPERATION FIRST :LIST) BUTFIRST :LIST 

We can also use the SE (SENTENCE ) command: 

SE (OPERATION FIRST :LIST) BUTFIRST :LIST 
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The procedure OPERATION manipulates the first element in the list. For 
example, if you want to reverse the word, you can replace the OPERATION 
procedure with the mirror procedure we developed in Chapter 9: 

TO MIRROR :WORD 

IF EMPTYP :WORD [OP :WORD] 

OP WORD MIRROR BF :WORD FIRST :WORD 
END 

For example: 

MAKE "SENTENCES [MANIPULATION OF SENTENCES] 

SE MIRROR FIRST :SENTENCES BF :SENTENCES 

Output: [NOITALUPINAM OF SENTENCES] 

To manipulate an entire list, you need to shorten the list by one word in each 
call to the procedure until the list is empty: 

TO SUBSTITUTEIT :SENTENCES 
IF EMPTYP :SENTENCES [OP :SENTENCES] 

OP SE EXCHANGE FIRST :SENTENCES SUBSTITUTEIT BF :SENTENCES 
END 

TO EXCHANGE :WORD 
OP MIRROR :WORD 
END 

Call: SUBSTITUTEIT [THE SUN SHINES TODAY] 

Output: [EHT NUS SENIHS YADOT] 

We can use MIRROR instead of EXCHANGE in the SUBSTITUTEIT 
procedure. However, since we're going to use the method employed in 
SUBSTITUTEIT in all of our list manipulations, it is better to keep the 
procedure as flexible as possible. 

The SUBSTITUTEIT procedure uses a typical recursive strategy for 
dealing with lists. It works with the first element, and then calls itself with a 
list formed by deleting the first element from the initial list. When it has 
modified every list element, the list is reformed with the SENTENCE 
procedure. This kind of procedure often uses the FIRST, BUTFIRST, 
LAST, BUTLAST, FPUT, and LPUT procedures. 


290 



Abacus Software 


ST LOGO User's Guide 


Every LOGO implementation should allow for list manipulations of this 
sort. The ST LOGO implementation is more powerful. It includes several 
procedures that let you manipulate lists in a nonrecursive way. 

• ITEM : N : SENTENCES retrieves the nth list element 

• . REPLACE : N : SENTENCES : OBJECT replaces the nth 
element of a list with another object, either a word or a list. 

• REP TAIL : N : SENTENCES : OBJECT replaces all the 
elements after the nth element in a list with another object. 

You already worked with the ITEM procedure. The .REPLACE procedure 
is similar to the ITEM procedure—it replaces an item instead of fetching it. 
The command . REP TAIL (an abbreviation for Replace Tail) is a variant of 
the .REPLACE command. 

You can't use the . REPLACE and . REPTAIL commands on words. Also, 
you can't use them to manipulate a constant list—i.e. the list must have a 
name and the name must be given as the second input. 

Observe the .REPLACE command's function in the following program: 

TO REPLACEMENT :I :SENTENCES :OBJECT 
.REPLACE :I :SENTENCES :OBJECT 
OP :SENTENCES 
END 

According to LOGO syntax, SENTENCES in the procedure REPLACEMENT 
is a local name. This means that manipulations on it shouldn't have any 
effect outside of the procedure itself. 

MAKE "S [THE SUN SHINES TODAY] REPLACEMENT 4 :S "BEAUTIFULLY 
Output: THE SUN SHINES BEAUTIFULLY 

Note that the S list we passed to the procedure is also changed in the same 
way. We usually don't expect this to happen when we use local variables. 
You'll be even more surprised if you call REPLACEMENT with a list that 
has two names: 

MAKE "S2 :S REPLACEMENT 4 :S "WARMLY 
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Now you've changed the value of S2, as well as the value of S. This 
unexpected effect means that the ST LOGO command .REPLACE is 
intended more for the internal functioning of LOGO programs than for user 
use. 

If you are aware of this fact, you can still use the command. We can get 
around the problem by building a new sentence out of SENTENCES with 
the SENTENCE procedure. 

REPLACEMENT 4 (SE :S) "WONDERFULLY 

The parenthesis are important—otherwise SE has two inputs. You can 
avoid the effect to the second name with the following variant assignment: 

MAKE "S2 (SE :S) 


15.1.1 Replacing a search word 


You're no doubt familiar with form letters produced on a computer, such as 
the direct mail advertisments that always mangle your last name. These ads 
are produced by a program with a standard text. The program puts names 
from a file in the appropriate places to make the letter appear "personalized." 
It does this by searching for a search word in the standard text and then 
replacing it with a name, word or phrase. 

There are several ways to search for words with LOGO programs. If you 
don't want to use the .REPLACE procedure, you can modify the 
SUBSTITUTE IT program. The EXCHANGE procedure has to be changed. 
Instead of reversing the words, it should check if the word currently being 
looked at is the search word. If it is, the procedure must send back the 
replacement word to be put into the new list. Using the .REPLACE 
command, we can do it as follows: 

TO REPLACEIT :SENTENCES :OLD :NEW 

LABEL "BEGINNING 

IF MEMBERP :OLD :SENTENCES ! 

[.REPLACE WHERE :SENTENCES :NEW GO "BEGINNING] 

SHOW :SENTENCES 

END 
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Here we use the Boolean function MEMBERP to find if the element OLD is in 
the SENTENCES list. The output is TRUE or FALSE. 

You can also use the WHERE procedure to find where the word was found 
in the list. This information is then passed to the . REPLACE procedure, and 
the NEW element replaces that word. Since WHERE only finds the first 
occurrence, we need to repeat the question until the search word is no 
longer present in the list. The repetition is accomplished iteratively using the 
GO command. But we also could have written it recursively. 

Often the search word is a placeholder in the sentence. For example, it 
might be located where you want a verb or a name to go. You can use a 
special character as a placeholder, e.g. &. If you want to use special 
characters that have a particular meaning in LOGO (*, +, etc.), you must 
put a # symbol in front of them. 

REPLACEIT [JOHN VERB JILL] "VERB "LOVES 
Output: [JOHN LOVES JILL] 

REPLACEIT [WE & GLADLY] "& "SING 
Output: [WE SING GLADLY] 

REPLACEIT [& , YOU WON!] "& "MR.# JOHNSON 
REPLACEIT [PAUL & MONICA] "& "IS# CRAZY# ABOUT 

Using . REPLACE limits us to replacing a list element with exactly one new 
element. If you want to replace a word with several words, you can form a 
list using these words and insert it. However, the result isn't a sentence, but 
a list containing another list, as indicated by the square brackets. 

The last two examples built a single word out of several words, at least in 
the LOGO syntax. We did this by putting a # in front of the blank spaces. 
When you use the SUBSTITUTE IT program for exchanges, you can pass a 
sentence for NEW because SENTENCE makes a real sentence out of it. 

If you wish to replace several words in the sentence, the program needs to 
be extended a little. We'll have OLD and NEW act as lists, and work with the 
first elements in OLD and NEW, then with the second, and so on. 
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TO REPLIT :SENTENCES :OLD- :NEW 
IF EMPTYP :OLD [STOP] 

REPLACEIT :SENTENCES FIRST :OLD FIRST :NEW 

REPLIT :SENTENCES BF :OLD BF :NEW 

END 

Example: 

REPLIT [& WAS $] [& $] [TODAY VERY# BEAUTIFUL] 

Output: TODAY WAS $ 

TODAY WAS VERY BEAUTIFUL 
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15.2 Replacement in text 


Text should be divided into chapters, paragraphs, and sentences. The 
syntax of LOGO demands that the divisions be specifically designated with 
square brackets. To replace a word in a paragraph, you go through the text 
sentence by sentence, and execute the replacement in each of the sentences. 


TO PARAGRAPHEXCHANGE :LIST :OLD :NEW 
IF EMPTYP :LIST [STOP] 

REPLIT FIRST :LIST :OLD :NEW 
PARAGRAPHEXCHANGE BF :LIST :OLD :NEW 
END 

TO TEXT1 

OP [[& IS A MANY FACETED ! 

PROGRAMMING LANGUAGE.] ! 

[EVEN CHILDREN CAN LEARN & AND WRITE ! 

THEIR OWN PROGRAMS IN THE & LANGUAGE.] ! 

[YOU CAN ALSO USE & TO SOLVE COMPLICATED ! 

PROBLEMS, BECAUSE PROCEDURES, RECURSION, AND ! 

LIST MANIPULATIONS ARE POSSIBLE IN THE & LANGUAGE.] 
[IN & YOU CAN USE PROGRAMS TO FIND AND ! 

MODIFY OTHER PROGRAMS.] ! 

[FOR EXPERIMENTS IN ARTIFICIAL INTELLEGENCE ! 

& IS JUST GREAT]] 

END 

Here we have a section of text programmed as the TEXT1 procedure. If we 
wanted to edit it using the LOGO editor, it would take a long time. Try this 
instead: 

PARAGRAPHEXCHANGE TEXT1 [& &,] [LOGO LOGO,] 

Or, you can use: 

PARAGRAPHEXCHANGE TEXT1 [LOGO LOGO,] [PASCAL PASCAL,] 


If you still haven't removed the SHOW : SENTENCES line from 
REP LACE IT, the replacements are displayed step by step. 
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The command . REPLACE works in such a way that the program TEXT1 is 
altered. Even if we use make to pass the list under a different name, the 
same thing happens. To understand this you need to know a little about ST 
LOGO'S method of storing information. If you use MAKE, you still have 
just one copy of the list in memory. The MAKE command merely makes 
another list name point to the memory location to which the second input 
points. If we want independent copies, we can't use MAKE. We’ll have to 
write our own procedure and demonstrate it on the TEXT1 program. 

TO NEWCOPY : A :B 

IF EMPTYP :A [OP :B] 

NEWCOPY BF :A LPUT (SE FIRST :A) :B 

END 

Call: MAKE "TEXT NEWCOPY TEXT1 [] 

Now we have a copy of TEXT 1 in the list TEXT that is completely 
independent. 
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15.3 Searching in context: intelligent dialog programs 


Many computer games and software packages begin with a user dialog. The 
user gives his name and other information that is used later by the program. 
The user has few choices for answers—if he enters a wrong answer, the 
question may be repeated or the program may crash. 

Conversations between people are completely different. The person 
answering can state his answer in a variety of ways and still be understood. 
We've learned to accept a broad spectrum of answers, and know how to 
decide what's important for us from the context. If we don't understand, we 
can just repeat the question. 

It would be nice if we could make the computer accept a wider range of 
answers. This really isn't too difficult, since answers almost always follow 
certain set patterns. 

You should begin the dialog by finding out the user’s name: 

WHAT'S YOUR NAME? 

A primitive program would only accept one word—the name itself. An 
intelligent program should be able to find the answer in sentences like the 
following: 


I AM LINDA. 

MY NAME IS JOE. 

STEVE IS MY NAME. 

WELL, I AM CARL. 

AYYYY, RAY IS MY NAME. 

The answers are quite different, but the positioning of the name follows a 
definite patem. We can write a procedure that finds the pattern and picks the 
name out of the sentence. 

We need to decide which patterns to look for. We only need to have the 
pattern fit part of the sentence. The rest can be represented with a wildcard 
character, e.g. a dollar sign ($). The name is represented using another 
wildcard character, the & sign. Useful patterns include: 

I AM & , MY NAME IS & 
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Answers in the form YES, I AM JOHN, MY NAME IS STEVE, and MY 
NAME IS LINDA, WHAT IS YOUR NAME? are accepted by these 
patterns. The program looks to see if the pattern is matched by part of the 
sentence. The wildcard character substitutes for the words until the next 
word that is part of the pattern is found. If a pattern is matched, the program 
picks the word that is located where the "&" is in the pattern as the name. 

Naturally a program like this can produce strange results, since it only looks 
at a word's position in the sentence to decide if it is the name. It's quite easy 
to trip the program up deliberately, as well as accidentally. 

When you're comparing, you look first and see if you can make any 
matches with the first word of the typical answer pattern. We use MEMBERP 
to see if the word can be found in the sentence. If it is found, we use 
where to find its position in the sentence. 

TO SEARCH :SENTENCES :FORM 

IF OR FIRST :FORM = ”$ FIRST :FORM = 

"& [OP SEARCH BF :SENTENCES BF :FORM] 

IF MEMBERP FIRST :FORM :SENTENCES [OP WHERE] [OP 0] 
END 

The second line in SEARCH skips the wildcard characters. If the result of 
the comparison isn't zero, i.e. when the first matching word is found, the 
remainder should be compared. We use the COMPAREP procedure for this: 

TO COMPAREP :SENTENCES :FORM 
IF EMPTYP :FORM [OP "TRUE] 

IF EMPTYP :SENTENCES [OP "FALSE] 

LOCAL "WORD MAKE "WORD FIRST :FORM 

IF (AND : WORDO FIRST : SENTENCES :WORD <> "$ :WORD >< "&) 
[OP "FALSE] 

COMPAREP BF :SENTENCES BF :FORM 
END 

The COMPAREP procedure is a Boolean value function. Consequently it 
returns either TRUE or FALSE as an output. If we don't complete the 
pattern before we run out of words to compare the pattern with in the 
sentence, it is FALSE. It comes back TRUE if it completes the pattern. 


298 



Abacus Software 


ST LOGO User’s Guide 


In the third line from the bottom, three conditions are put together with a 
logical AND to form one expression. If you wish to form a logical 
expression with two conditions, you put the AND or the OR between them. 
If you have three or more, it is easier to put the AND at the beginning of the 
expression. 

The FINDIT program uses the procedures SEARCH and COMPAREP. The 
FIND IT program takes a list of patterns as input and goes through the list 
recursively. To make things easy we'll use two global variables: 
SENTENCES, which is the sentence being searched, and SL for the length. 

TO FINDIT :PATTERNS 
IF EMPTYP :PATTERNS [OP "] 

(LOCAL "FORM "ST ”S) 

MAKE "FORM FIRST :PATTERNS 

MAKE "ST SEARCH :SENTENCES :FORM 

IF (OR NOT MEMBERP "& :FORM :ST=0 :ST=:SL)! 

[OP FINDIT BF :PATTERNS] MAKE "S WHERE 

TEST COMPAREP PIECE :ST+1 :SL :SENTENCES BF :FORM 

IFT [OP ITEM :ST+:S-l :SENTENCES] 

IFF [OP FINDIT BF :PATTERNS] 

END 

The ST holds the value of the location of the first recognized word in the 
sentence. The S holds the value of the location in the pattern of the wildcard 
character & (which represents the name). 

Notice the kind of results this procedure can produce. FINDIT is a 
procedure that always produces an output. If a word is identified as the 
name, that word is sent back as the result. Otherwise the empty word is 
returned. 

The Boolean valued function COMPAREP is called in the eighth line. The 
call could have been shortened to: 

IF COMPAREP ... [OP ...] [OP ...] 

Instead we use the LOGO reserved word TEST to do it. 
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• TEST means make a logical comparison. The truth 
value determines which of the IFs is carried out. 

• The results of TEST can be checked with the reserved 
words IFT (if true) and IFF (if false). 

• The result of a TEST statement can be the contents of 
the IFT line if the expression is true, or of IFF if the 
expresssion is false. 

The results of the TEST statement stay in effect until TEST is called again. 
Therefore, IFF and IFT can be used several times if you want. In contrast, 
the results of an IF statement can only be used once. We only used TEST 
in FIND IT so you can see how it is used. 

The question "What's your name?" really only has one answer—the 
person's name—even though the answer may be formulated differently. For 
this reason, FINDIT is called by a small masking program: FIND. To carry 
out the conversation, we'll write the main program GREETINGS. 

TO GREETINGS 

LABEL "BEG PR [WHAT'S YOUR NAME?] 

MAKE "NAME FIND RL 
IF EMPTYP :NAME ! 

[PR [PARDON ME. I DIDN'T QUITE CATCH YOUR NAME.]! 

GO "BEG] 

IF ASCII LAST :NAME < 65 [MAKE "NAME BL :NAME] 

PR (SE [IT'S NICE TO TALK TO YOU] :NAME "! ) 

END 

TO FIND :SENTENCES 

LOCAL "SL MAKE "SL COUNT :SENTENCES 

IF :SL=1 [OP FIRST :SENTENCES] [OP FINDIT PATTERNS] 
END 

The program line beginning with IF ASCII is of special note. There might 
be a sentence character at the end of the name. We want to remove it if there 
is. The last thing FIND does is call FINDIT with PATTERNS as input. 
Without a preceding colon, it must be treated as a procedure name. We also 
need a procedure that outputs a list of patterns. If you want to expand the 
pattern recognition capabilities of the program, you only have to change this 
procedure. 
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TO PATTERNS 

OP [[& IS $ NAME] [I AM &] ! 

[MY NAME IS &]] 

END 

The program can handle answers like these: 

PARDON, JOHN IS MY NAME 
ARNOLD IS THE NAME 
I AM JULIE 

YOU KNOW MY NAME IS JOE! 

DAT'S DA FACT, MY NAME IS JACK! 

Now the names John, Arnold, Julie, Joe and Jack are recognized as 
by the program. 

The program still isn't perfect. If you enter a first and last name, only the 
first name is identified as the name. You can work on making the program 
more intelligent by refining it yourself. 


15.3.1 LOGO Pygmalion 


J. Weizenbaum developed a breakthrough dialog program called Eliza. The 
program takes its name from the main character in G.B. Shaw's comedy 
Pygmalion. This program emulates a conversation between a psychologist 
and a patient. The computer actually acts as the psychologist. 

The program imitates Rogerian nondirective counseling. The counselor 
doesn't make suggestions, but rather he acts as a "mirror" for the person. 
He asks for clarification of what the person has said to help the person find 
out what he or she is really thinking. 

It isn't too hard to write the programs needed for the beginning of such a 
nondirective conversation. The program can respond to the patient's 
answers with phrases like "Tell me more", "How long has it been like 
this?", "Do you think anything else might be involved?", or by repeating 
what the patient has said in the form of a question. To vary the sentences, 
the program stores a number of patterns for its answers. It becomes more 
difficult to keep the responses grammatically correct as the conversation 
progresses, since at least the person in the sentence and the form of the verb 
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need to be correct. To do this, you need procedures like the REPLACEMENT 
procedure. 

The procedure GREETINGS would act more intelligently because it would 
know more about context in patterns. Think about the kind of phrases that 
would be typical in a dialog with a patient. Once you've developed the 
patterns you can use to find the significance of an answer's words, you can 
produce a fairly intelligent reaction on the computer. 

As you can see, finding the answer to "What is your name?" is relatively 
easy compared to working with more extensive dialogs. 

Writing this sort of program can teach you a lot. A similar project would be 
to write a teaching program for schoolchildren. The more flexible and 
intelligent the progam's responses to the user are, the better a teacher it is. 

An important component of intelligence is a knowledge base of facts and an 
understanding of facts' relationships. This sort of program is only 
intelligent in comparison to "dumb" programs. But representing knowledge 
like this efficiently is a huge problem. Even the most advanced applications 
of this type come nowhere near to human intelligence. 

Much intensive research is currently being done in Artificial Intelligence, or 
AI. Progress in AI has been restricted almost entirely to very specialized 
fields. Research in the field of AI is usually done in the LISP programming 
language. LOGO is actually an offshoot of LISP. 

We'll take a closer look at this topic in the next chapter. 
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Exercises 

1) Build a sentence containing name, address, age, profession, 
marital status and income. This information can be used to 
come up with lists of people with certain characteristics. 
Write a program, that lists all people with several 
characteristics in common if given only the characteristics. 
For example, one search group could be all single women 
between the ages of 20 and 30 who make over $50,000. 

2) Write a program that takes an input decimal number and 
outputs it as a numeric word. First solve the problem for 
two-digit numbers, then for three-digit numbers. 

3) Expand the dialog program with another question, something 
like "How are you doing?". The program should 
respond to both answers. 
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Data structures in LOGO 


New language elements: 

THING, LIST, LISTP, THROW, TOPLEVEL 
Programs: 

SIEVE (prime number sieve), TABLE, TABOUT, TAB IN, tabprint 
( table functions), INPUT (table program), ANIMAL (construction and 
expansion of tree structures), SORT (index sorting) 


Numbers, words, and characters are data. In the simplest case each 
individual data item has its own name. If a sentence is formed out of several 
words (the words could just as well be numbers), the name of the sentence 
belongs to a set of data. This must have an underlying structure, because the 
data must be stored in the computer so that it can be retrieved again. 

A sentence constructed of words is a simple example of a list. These form a 
very complex basis for data structures in LOGO. For this reason no other 
data structures are provided in the basic vocabulary. Lists are multi-faceted 
instruments with which we construct very complex data structures. 

While all versions of LOGO works with lists, ST LOGO and a set of 
additional implementations offer another type of lists well-suited for data 
structures—the property lists. Property lists are examined in more detail in 
Chapter 18. 

Words in a sentence have different word lengths, so we cannot determine 
the internal representation in the ST through them. In contrast, we can 
define the length and thereby the internal representation of numbers from the 
beginning. Data that takes up a known amount of internal memory can be 
managed faster and more easily than lists. LOGO programs are relatively 
slow and cannot really be used in such areas for calculation-intensive tasks. 
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16.1 Simple lists: Prime number sieve 


The simplest form of list is a sentence comprised of individual words—i.e. 
a row of elements, separated by spaces. 

As an example we will look at a program for calculating prime numbers. 
The divisible numbers are eliminated from the limited set of natural 
numbers, and the prime numbers are left over. The idea is that the 
non-primes are "filtered" out, hence the name "prime number sieve." 

The classical Eratosthenes version eliminates the multiples of a prime 
number. All of the even numbers starting with 2 are eliminated, then all 
multiples of 3, 5, 7, 11, etc. If you are looking for the prime numbers less 
than 100, the process is complete when the multiples of 7 are eliminated. A 
number that is not a prime must have at least two prime factors, where the 
smaller must then lie below 10. In general, the elimination of non-primes 
need continue only up to the square root of the largest number. 

Now we set up a list of the eliminated numbers. To determine if a natural 
number is prime, we just look in the list. Except for the number 2, all prime 
numbers are odd, so the even numbers can be eliminated immediately. 

TO SIEVE :N; PRIME NUMBERS UP TO N 
(TYPE 2 ",) 

MAKE "PRIME []; LIST OF NUMBERS 

MAKE "II 

MAKE "W SQRT :N 

REPEAT (:N/2-1) [MAKE "I : 1+2 ! 

IF NOT MEMBERP :I :PRIME [(TYPE :I ",) 

IF :I < :W [REMOVE :I :I+:I]] 

END 

TO REMOVE :J :Z 
IF : J > :N [STOP] 

MAKE "PRIME SE :PRIME :J 

REMOVE :J+:Z :Z 

END 

The procedure REMOVE eliminates the odd multiples of J, then added to the 
list PRIME as words. Multiples are created by addition in the recursive call. 
This version eliminates numbers more than once—for example, 15 as a 
multiple of 3 and 5. When calling with SIEVE 500, for instance, 240 
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entries are created, although there are only 163 unique entries. A check can 
be used to prevent duplicates in the list. The third line of REMOVE must then 
read: 

IF NOT MEMBERP :J :PRIME [MAKE "PRIME SE :PRIME :J] 

This makes the list shorter. The execution time is slightly longer because of 
the additional test with MEMBERP. The entire procedure can also be 
improved, but we won't go into it here because the program would become 
significantly more complicated. 

The prime number determination occurs in the program SIEVE in the 
REPEAT line using an iterative solution. The quantity I is incremented by 
two so that only odd numbers are considered. If the number has already 
been removed, the check word MEMBERP returns the answer TRUE (which 
becomes FALSE through NOT), and the remainder of the REPEAT line is 
not executed. If the number is not removed, NOT MEMBERP returns the 
value TRUE. In this case a prime number has been found, and is then 
printed. The multiples of this number are then removed with the procedure 
REMOVE. The second input of REMOVE specifies the step width for 
elimination. The prime number is passed twice so that the even numbers are 
skipped. 

The numbers are not actually eliminated by REMOVE. They are simply noted 
by LOGO instead. We can also do it in the other direction. We can place all 
of the numbers in a list, e.g. the odd numbers, and then actually eliminate 
them. A certain character could be placed a the start of the list for all of the 
odd numbers, which would be converted when these numbers were 
eliminated. We leave this version up to you as a practice problem. 
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16.2 Tables: Logoplan 


Instead of recording multiples of prime numbers as in the previous example, 
we could create a register receipt, for example. The totals and grand total 
could be determined from the listed prices. 

It would be more interesting if several register receipts were placed next to 
each other, something like the list of monthly expenditures for a household. 
This would make correlations possible, which can be very useful for 
planning budgets and expenditures. 

The expenditures for a month must be placed in a set order in the lists each 
time. An appropriate notation, usually the number 0, must be used for each 
missing item. Together this results in a two-dimensional table with rows for 
items such as food or auto costs, and columns for the separate months. 

We could place explanations of each line in the first column of this table so 
that each entry is labeled. The titles would then be placed in the first line. An 
additional column for the yearly totals of each item would be good, as well 
as an additional row for the monthly sum of all the expenditures. Columns 
and rows could also be reserved for percentages. 

The ST must manage and correlate these interrelated categories of 
information. The tables can be printed, changed, saved, and retrieved. The 
computer can also be used to perform calculations, like adding the monthly 
and yearly sums. Each time a table value is changed, all of the calculated 
values could be updated easily by the computer. 

Programs for manipulating tables of data are called spreadsheet programs. A 
couple of well-known examples are the Lotus 1-2-3® and PowerPlan 
programs. Of course, these commercial program packages offer 
considerably more than ours will. 


How can tables be represented in LOGO? 

The list of monthly expenditures is a sentence—again, the simple form of a 
list. The table is also a list. Its elements are not words, but sentences—a list 
of lists. 
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Table functions 

Procedures to perform the repetitious operations and calculations are 
required for working with tables. 

A table must be set up as a special list and each column must have the same 
number of lines. All points in the table must be present so that the values 
can be accessed properly. If an entry is not present, a character must be 
used to take its place. The procedure table fulfills these requirements. 

TO TABLE :NAME :R :CLM; SET UP A TABLE 
MAKE :NAME [] 

REPEAT : CLM [MAKE : NAME FPUT EMPTYCOL :R THING 
:NAME] 

END 

TO EMPTYCOL :R 

LOCAL "COL MAKE "COL [] 

REPEAT :R [MAKE "COL SE ". :COL] 

OP :COL 
END 

The procedure EMPTYCOL returns an empty column as the result. This is a 
list once again, consisting of R points, whereby a period stands for a 
missing entry. Try this: 

EMPTYCOL 10 

C number of these empty columns are combined into a list in TABLE. The 
name of the list is passed as the value of NAME. 

Note that the name of the table is passed as the value of a quantity. NAME 
contains the word with which the table will be designated. For make the 
name is prefaced with a colon, not a quotation mark. Compare: 

MAKE "NAME ". MAKE :NAME ". 

With a quotation mark a name with the designation NAME is assigned a 
period. With a colon the word stored under the name NAME is fetched, in 
this example as the input value for TABLE. This word then gives the actual 
name. 
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The value of the name created in this manner cannot be obtained by 
prefacing another colon. The LOGO word THING is used instead: 

THING : NAME instead of : : NAME 

Fundamental operations for working with tables include insertion as well as 
reading a value at a given table position. 

Reading a value is simple because we can use the LOGO primitive ITEM 
twice in a row. 

TO TABOUT :TAB :I :J; READ TABLE POSITION 

OP ITEM :J ITEM :I :TAB 

END 

TO TABIN :TAB :I :J :X; SET TABLE POSITION 
LOCAL "COL 

MAKE "COL ITEM :J :TAB 
.REPLACE :I :COL :X 
END 

A table is not a sentence but a list of sentences. ST LOGO makes it very 
easy to fill table positions. The function . REPLACE is use for this purpose. 
In the third line a column is assigned to the name SP. The Ith element is 
then replaced in the sentence COL with . REPLACE. We would first expect 
that the modified column be inserted in the table. As determined already in 
Section 15.2, MAKE " COL does not create a new list but only sets pointers 
to the list element. The modification of COL with . REPLACE signifies the 
desired insertion at the table position at the same time. 

In LOGO versions without . REPLACE it is somewhat harder to fill table 
positions. The table must then be broken down, the new item inserted, and 
the table rebuilt again. The programming technique necessary to do this 
corresponds to that used in the procedure REPLACE in section 15.1, but 
because of the nesting it must be used on two levels. 

Another basic function is printing a table: 
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TO TABPRINT :TAB :I :J :TPOS :TITLE; OUTPUT TABLE 
PREPARE 

PD TT :TITLE PU; PRINT TITLE 

TBPRINT 1 0 

END 

TO TBPRINT :L :H 
IF : J < :L [STOP] 

LOCAL "B MAKE "B 1+ITEM :L :TPOS 
SETPOS SE :H 2 
COLPRINT ITEM :L :TAB 1 
TBPRINT :L+l :H+:B-1 
END 

TO COLPRINT :COL :L 
IF : I < :L [STOP] 

BK 20 PRN ITEM :L :COL 
COLPRINT :COL :L+1 
END 

TO PREPARE; PREPARE GRAPHICS 
SETPAN [300 -145] MAKE "GFILL "TRUE 
SETF 0 HT PU SETPOS [0 6] 

END 

TABPRINT prints the table TAB. I and J are the number of rows and 
columns with which we can also prints parts of the table. A list is expected 
under the name TPOS in which the print widths of the individual columns 
are placed. A title is also printed at the top of the output. 

The table is printed in the graphics window, because the only cursor 
positioning ST LOGO allows in the dialog window is clearing the entire 
window. This would be alright for printing a finished table, but is unwieldy 
for making changes. The graphics window is prepared before the output in 
the procedure prepare. 

The coordinate origin is moved to the upper left section of the 
maximum-size graphics window. The system variable GFILL (controls the 
filling of closed surfaces) is set to TRUE so that the field to be created is 
erased. The short procedure SETF is used as an abbreviation for setting the 
fill parameters. It offers us the flexibility to change the parameter Style. 
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TO SETF :C; SET FILL PARAMETERS 
SETFILL (SE :C 1 1) 

END 

TO PRN :A 

BOX (SE XCOR - 1 YCOR - 2 :B 21) PD TT :A PU 
END 

The actual output is performed in TBPRINT, which is formulated as a 
separate procedure to ease the repetition. TBPRINT uses the procedure 
COLPRINT, which prints a single column. The output of a table value is 
done in the procedure PRN. First a rectangle is drawn as a border around the 
table value, while the filling with Style 0 erases any existing contents. 
The value is then written in the rectangle with the LOGO primitive 
TURTLETEXT (TT). 

To conclude the elementary table functions, we present an input program 
with which the table TAB can be entered and changed. The input program is 
constructed with the subroutines similar to the output program TABPRINT. 
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TO INPUT :TAB :TPOS 
(LOCAL "I "J "E ”B) 
MAKE "K COUNT :TAB 

:TITLE 

; INPUT 

TABLE 

MAKE "I COUNT FIRST 

: TAB ; 

SIZE OF 

TAB 

TABPRINT :TAB :I :K 
SETPOS [0 6] 

TBIN 1 0 

: TPOS 

:TITLE 


END 

TO TBIN :SN :H 

IF : K < : SN [STOP] 
MAKE "B 1+ITEM :SN : 

TPOS 



SETPOS SE :H 2 

COLIN ITEM :SN :TAB 
TBIN :SN+1 :H+:B-1 
END 

1 



TO COLIN :COL :L 





IF : I < :L [STOP] 

BK 20 SETF 2 PRN ITEM :L :COL; SUPPRESS VALUE 
MAKE "E RQ TEST EMPTYP :E; INPUT FROM KEYBOARD 
IFF [IF ASCII :E<36 [SETF 0 PRN ITEM :L :COL! 

IF ASCII :E = 27 [THROW "TOPLEVEL] [STOP]]] 

IFF [.REPLACE :L :COL :E]; FILL TABLE POSITION 
SETF 0 PRN ITEM :L :COL; PRINT VALUE 
COLIN :COL :L+1 
END 

The table is printed out before it is ready for changes. The input is made 
with the LOGO word READQUOTE (RQ). This stops program execution 
until the <Retum> key is pressed. What you enter at the keyboard appears 
first in the dialog window. This has the advantage that the characters entered 
are visible and can be corrected before the termination with <Retum> (or 
<Enter>). 

Unfortunately, the dialog window is necessary for this. It is best to make 
the dialog window as small as possible when before you start. The small 
window can then be moved to the lower edge of the screen with the mouse 
pointer, so that it disturbs the graphics window as little as possible. Click 
the upper right comer of the GRAPHICS DISPLAY. 

If you want to use the dialog and graphics windows simultaneously you 
must switch between the two. The windows are then reconstructed from 
scratch by the operating system. An alternative to this is the character input 
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with readchar (RC). A separate procedure is needed for this purpose to 
construct a word out of individual characters. 

The COLIN program differs considerably from its sister program 
COLPRINT. In the third line the specified table position is printed, and a 
dotted background around it is created with SETF 2 . If only the <Retum> 
key is pressed, COLIN outputs the value again on an erased background 
and moves to the next value. 

To highlight a field a dotted background is created with SETF ILL. An 
alternative would be to use another type style, which can be achieved with 
the LOGO primitive SETTEXT. 

Two control input characters are provided as a refinement. If the number 
sign (#) is entered and <Retum> is pressed, the program moves to the next 
column. This makes it possible to move to an individual position more 
quickly. If the <Esc> key is pressed with <Retum>, the entire program is 
terminated by the command THROW "TOPLEVEL. 

Example: 

MAKE "TITLE "BUDGET 

MAKE "TPOS [80 50 50 50 50 50 50] 

TABLE "BUDGET.HJ 4 7 

INPUT :BUDGET.HJ :TPOS :TITLE 

Now you can fill the positions, which first appear as periods: 


. 

JAN 

FEB MAR APR MAY JUN 

FOOD 

170 

185 . 

BOOKS 

20 

30 ... 

AUTO 

100 

85 ... 


The table is provided with titles partially filled with numbers. If INPUT is 
called again, the table appears in its current form. Information can be added 
to it or existing data can be changed. If the program is saved on disk, the 
table and the necessary specifications TPOS and TITLE are also saved. Or 
you can also append those names belonging to a table to a package name, 
and then save just this package. 

This program is expanded considerably in Chapter 17 and Chapter 18. 
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16.3 Tree structures: Guessing animal names 


Imagine you're playing cards and your partner asks you to pick a card. 
Since he has poor chances of guessing your chosen card randomly, he will 
ask carefully directed questions. 

It would be foolish to go through the cards in order and ask "Was it this 
one?" The skill of your partner depends more on asking as few questions as 
possible to reach the goal. He will also try to disguise the method he is 
using. In a fair game the first question could be: Is the card red? After the 
color he could ask about the number or suit. 

In a different game we could be trying to guess a language. The dialog 
could run something like: 

Is the language a natural language? 

—No 

Is it a programming language? 

—No. 

Is it Esperanto? 

—Yes. 

If the second question about the programming language is answered Yes, 
the dialog could continue as follows: 

Is it problem-oriented? 

—Yes. 

Are procedures possible? 

_Yes. 

Is it LOGO? 

—Yes. 


The questioner is running through a decision tree in these dialogs. If only 
yes/no answers are possible, a binary tree is used. These trees are useful for 
more than just games. Decision trees are efficient processes for storing and 
searching through data in electronic data processing. 

The structure used when looking for the language can be represented 
graphically as follows: 
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A tree has nodes that can have branches. In a binary tree a node has exactly 
two successors, one for the answer Yes and one for No. A successor can be 
another node with branches, such as a question, or it can be an end node 
such as the name of a language. 

This data structure can be described with lists: 

[[NATURAL LANGUAGE] [[LIVING LANGUAGE] [[ROMANTIC] 
SPANISH GERMAN] LATIN] [[PROGRAMMING LANGUAGE] 
[[PROBLEM-ORIENTED] [[PROCEDURES POSSIBLE] LOGO BASIC] 
ASSEMBLER] ESPERANTO] 

The question (a node with branch) and the two successors (Yes/No 
branches) result in a list with three elements. Check the above list with the 
help of COUNT. Because the question may be a sentence of several words, 
as an element it is itself a simple list. If the successors are themselves nodes 
with branches, these list elements again compose a list. Trees that have 
more than two successors can be represented correspondingly. 
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The concept of the list makes it possible to construct a hierarchy of nested 
elements, which corresponds exactly to a decision tree structure. The 
previously-examined tables can be viewed as tree structures. One of the 
existing columns can be selected in the first node, and a row can be selected 
on the second level. But the tree structure is more versatile than this, 
because some queries can end early while others branch on further. 

The tree is an efficient way of organizing data so that it can be found again. 
A tree can be changed and expanded. Trees also offer special properties 
where the set of information can dynamically expand and change. The 
following program example should clarify working with this data structure. 


Guessing names of animals 

A favorite program for clarifying the construction of trees is a program for 
guessing a certain word. A good example would be the names of animals, 
since the animal world is large and varied and can produce widely branching 
trees. 

The program would quickly become boring if it worked only with a preset 
decision tree. Programs which can continually expand the knowledge tree 
with the help of answers from the users are much more interesting. 

The simplest form of binary tree is a single end node. Here it's the name of 
an animal: 

"MONKEY 

The program can then ask only the question: 

IS IT A(N) : MONKEY? 

If the answer is NO, the program is not satisfied and asks for the term that 
you couldn't guess. To be better prepared for the next round, you are asked 
to enter a question that distinguishes the new animal from a monkey. The 
question has to be one that can be answered with Yes or No, and which is 
answered with yes for the animal in question. The list might then have the 
following structure: 

[[CAN IT FLY] HUMMINGBIRD MONKEY] 
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The program must therefore proceed from MONKEY (a word) to [ [CAN 
IT FLY?] HUMMINGBIRD MONKEY] (a list). 

In both cases the word MONKEY is the last element. 

This is the basic procedure for expanding knowledge. The knowledge must 
be expanded if an end node is reached. It is discarded with the answer NO. 
This end node (here the word MONKEY), is replaced by a list of three 
elements—the question, the new term, and the old term. 

The new list now has two end nodes: HUMMINGBIRD and MONKEY. In the 
next step the expansion must replace one of these two nodes with a new list. 
In order for this to be possible with a complicated list, the term to be 
replaced must first be located. This problem has already been examined in 
connection with replacing words in texts. 


Generation of lists 

Before we can look at the procedures for expanding a knowledge tree, the 
possibilities for constructing lists in LOGO must be extended. 

Lists are recognizable by the square brackets surrounding them. Lists can be 
constructed out of words in their simple form of sentences. The LOGO 
primitive SENTENCE (SE) is used to add words to the sentence: 

SE [ONE] [COMPLETE SENTENCE] 

Answer: [ONE COMPLETE SENTENCE] 

SE "ONE [COMPLETE SENTENCE] 

Answer: [ONE COMPLETE SENTENCE] 

The first example enters a list that consists of just one word. The second 
example enters a word. SENTENCE treats words like lists consisting of one 
word, and combines all of the inputs into a list. The operation can be 
described as follows: 

Any square brackets around the inputs are first removed. All 
elements are combined together and the result is again enclosed 
in square brackets. 
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But only the outer brackets are removed. With nested lists the square 
brackets on the inside remain. 

SE [A] [COMPLETE [SENTENCE]] 

Answer. [A COMPLETE [SENTENCE]] 

A second possibility you know for list construction uses the primitives 
FPUT and LPUT. FPUT works differently than SENTENCE. 

The square brackets of the second input are first removed. The first input is 
then placed in front of it unchanged. Brackets are then placed around the 
entire result. 


FPUT "A [COMPLETE SENTENCE] 

Answer. [A COMPLETE SENTENCE] 

FPUT [A] [COMPLETE SENTENCE] 

Answer: [[A] COMPLETE SENTENCE] 

With FPUT it makes a difference whether the first input is a word or a list 
consisting of a word. LPUT works just like FPUT except that it puts the 
input at the end. 

In addition to SENTENCE and FPUT (LPUT), there is another way to 
construct lists—the LOGO word LIST: 

LIST "A "COMPLETE 
Answer: [A COMPLETE] 

LIST "A [COMPLETE] 

Answer: [A [COMPLETE]] 

LIST [A] [COMPLETE] 

Answer: [[A] [COMPLETE]] 

LIST [A] [COMPLETE [DAY]] 

Answer: [ [A [COMPLETE [DAY] ] ] 

The operation of LIST can be seen above: 

The inputs are placed unchanged one after the other, and at the 
end square brackets are placed around the result. 
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The check word WORDP lets you determine if a word is present. As a 
counterpart there is also the check word LISTP. LISTP answers with 
TRUE if the input is a list, and otherwise with FALSE. 

LISTP "WORD 
Answer: FALSE 

LISTP 5 
Answer: FALSE 

LISTP [LIST1] 

Answer: TRUE 


Procedures for expanding the knowledge tree 

The principle task consists of replacing an end node; the node is a word, but 
the list consists of a question, the new term, and the old word. The LOGO 
word LIST can be used for this: 

(LIST [CAN IT FLY] "HUMMINGBIRD "MONKEY ) 

For example, the word MONKEY is already present and available under the 
name NODE. The question can be read as a list with READLIST (RL) and 
the new term can be read with READQUOTE (RQ). Try this: 

MAKE "NODE "MONKEY (LIST RL RQ :NODE) 

You must first enter the question, conclude it with <Retum>, and then type 
in the new term and press <Retum>. 

On the next level it becomes more difficult because one the two end nodes, 
HUMMINGBIRD or MONKEY, must be replaced by a three-element list. The 
second element of the existing list must be replaced if we find ourselves in 
the Yes branch. By contrast, the third element must be replaced in the No 
branch. 

Here we use . REPLACE, in the following form: 

MAKE "TREE (LIST RL RQ :NODE) 

.REPLACE 2 :TREE (LIST RL RQ ITEM 2 :TREE) 
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If you now enter the following inputs when processing the second line: 

IS IT BIG <Retum> EAGLE <Retum> 
then TREE should have the following value: 

[[CAN IT FLY] [[IS IT BIG] EAGLE HUMMINGBIRD] MONKEY] 

Since the list of the tree structure always contains three elements, a solution 
without . REPLACE is relatively easy. 

MAKE "TREE (LIST FIRST :TREE (LIST RL RQ ITEM 2 :TREE) LAST :TREE) 
We should therefore avoid using . REPLACE here. 

If the third element is to be replaced in the no branch, the following line can 
be used: 

(LIST FIRST :TREE ITEM 2 :TREE (LIST RL RQ ITEM 2 :TREE)) 

Or somewhat shorter: 

LPUT (LIST RL RQ LST :TREE) PIECE 1 2 :TREE 

The dialog for finding the term and then for expanding the knowledge tree 
must be executed something like this: 

• Output the first element of the list—the first question (Can it 

fly?). 

• Depending on the answer (Yes or No) either the second or third 
element is taken as the end node and you are asked if the term is 
correct. 

• If the answer is No, the rejected answer must be replaced by the 
described list consisting of a new question, a new term, and the old 
term. 

• If the answer is Yes, the search term is presented as the result. 
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TO EXPAND :TREE 
(TYPE FIRST :TREE "? ) 

IF FIRST RQ = "Y 

[OP (LIST FIRST :TREE QUESTION ITEM 2 :TREE LAST :TREE)] ! 

[OP LPUT QUESTION LAST :TREE PIECE 1 2 :TREE] 

END 

TO QUESTION :NODE 
(TYPE [IS IT A(N): ] :NODE "?) 

IF FIRST RQ ="Y [PR [THEN I GUESSED RIGHT ] OP :NODE] 

TYPE [MY MISTAKE! WHAT IS THE TERM?] 

MAKE "NEW RQ 

(PR [ENTER A QUESTION WHICH MUST BE ANSWERED YES FOR] :NEW! 
[AND NO FOR] :NODE 
OP (LIST RL :NEW :NODE) 

END 

We have placed the result of the procedure QUESTION where we wrote 
(LIST RL RQ LAST :TREE) in the first version. When the term is 
found, QUESTION simply returns the entered node. 

In this case the knowledge is not actually expanded by EXPAND, because in 
the proposed form the node will be replaced by itself. We could also avoid 
the replacement with a check, but the formulation can be generalized easily. 

Up to now the procedure EXPAND only worked if TREE consisted of 
exactly one question and two end nodes. On the higher levels, questions 
must be asked until the user reaches a point in the tree where there is just 
one question and two end nodes left. 

As you have probably guessed, we use recursion for this. In EXPAND, 
QUESTION is replaced by the self-call, i.e. EXPAND. The recursion must 
be terminated when EXPAND encounters an end node. This can be easily 
determined with the check word WORDP. When a node is actually reached, it 
is passed to QUESTION. Since the result of QUESTION should be inserted 
in the tree, the result of QUESTION is returned as the result of expanding on 
the deepest nesting level. 
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TO EXPAND :TREE 

IF WORDP :TREE [OP QUESTION :TREE] 

(TYPE FIRST :TREE "? ) 

IF FIRST RQ = "Y 

[OP (LIST FIRST :TREE! 

EXPAND ITEM 2 :TREE LAST :TREE)]! 

[OP LPUT EXPAND LAST :TREE PIECE 1 2 :TREE] 

END 

TO ANIMAL 

(PR [THINK OF THE NAME OF AN] "ANIMAL! 

[I WILL TRY TO GUESS IT ]) 

MAKE "KNOWLEDGE EXPAND :KNOWLEDGE 

ANIMAL 

END 

ANIMAL is the outline program. In the first greeting line, ANIMAL is 
obviously removed from the square brackets. You can also search for other 
types of terms. The course will become clear with POCALL "ANIMAL: 

ANIMAL 

EXPAND :TREE 

QUESTION :NODE 
EXPAND :TREE 
ANIMAL 

The knowledge tree will be reassigned to the name KNOWLEDGE in each 
pass. The tree can also be printed and stored as a list structure. 
KNOWLEDGE is a global name. It is assumed that at least one node is 
present. When guessing animals one can start with something like 

; 

MAKE "KNOWLEDGE "MONKEY ANIMAL 

It can also be started with an advanced tree under the name knowledge, 
such as the tree developed at the start of the section for the languages. 
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16.4 Related data: Sorting with keys 


In a card file there are usually several various types of data on each card. 
With a personal file these might include name, address, city, state, zip code, 
sex, birthdate and birthplace, profession, salary group, and so on. Some of 
these data are in strings, some are numbers with structure (like the birthdate) 
and can comprise one or more elements. 

All the data are on one card and belong together. We therefore speak of a 
relation. When the file is used, the entire card may sometimes be involved, 
such as when it is deleted. Sometimes the entire relation is not processed, 
but only individual parts are accessed. 

The list concept is flexible enough to be able to work with such data 
structures. For a list structure it is irrelevant that the data are of different 
type and may themselves be composed of several elements. The entire card 
is represented as a list where the individual entries are elements of the 
list—and can be lists themselves, if required. 

The entire card is accessed by the list name. For this the list must be 
properly divided and put back together again. Many solutions are possible. 
We'll demonstrate one variant: sorting with a sort key. 

A card file can be sorted under various categories. For a personal file the 
most common sort is alphabetical by the name, but it is also possible that a 
sort on the birthdates or other personal identifiers might be used. The 
quantity that determines the order is called the sort key. When sorting a 
column of numbers in ascending order, the data and the key are identical. 
With a personal file, the key is only part of the card. Despite this fact, the 
entire card should be moved. 

To access the key, a procedure KEY is formulated: 

TO KEY :L 
OP FIRST :L 
END 

Here the key is simply the first element of the input. In other cases the result 
can be obtained from the input with ITEM. If the data and the key are the 
same, the input is returned unchanged as the result. 
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When this procedure is formulated, other programs (here the sorting 
program) can access it under the name KEY. If the sort key is to be changed, 
only the procedure KEY is affected. A certain structure of the data is 
represented by this method through such procedures. 

The easiest way to represent a data relation in LOGO is with property lists, 
These list use the properties as keys. When the property used for this is 
changed, the access to the data is changed accordingly. Since property lists 
are not available in all versions of LOGO, they are handled separately in 
Chapter 18, in which the sorting problem will be examined again briefly. 


Sorting with index 

ST LOGO has its own vocabulary for sorting: 

SORT [GOEDEL ESCHER BACH] 

Answer: [BACH ESCHER GOEDEL] 

Only sentences (lists of words) are allowed as input. The words may also 
be numbers, but remember the error in ST LOGO when we compared 
negative numbers—numbers are also sorted lexically and not numerically. 
Therefore the command SORT cannot be used directly for a higher data 
structure. 

When sorting, the first thing that we think of is that the objects are actually 
rearranged. When the items in a kitchen cabinet are ordered according to 
size, we would generally get a different arrangement than if they were 
sorted according to use. In the computer this means another order in the 
workspace. We can also sort without the objects changing their places, 
however. Another list is created—an index —in which the order of the 
objects is indicated. 

What then changes is the access to the data: 

ITEM ITEM 5 :INDEX :DATA 
instead of 
ITEM 5 :DATA 


327 



Abacus Software 


ST LOGO User's Guide 


Now a detour via the index is necessary to select the right element. When 
sorting, but also when inserting, the data need not be rearranged, which can 
be very time-consuming, especially if memory space is limited. 

The LOGO word SORT can also be used for relational data with the index 
method: 


• The key values are first combined into a sentence. 

• This sentence is sorted with SORT. 

• An index is obtained from the sorted sentence. 

The first step is already finished and the key values are available in the 
sentence KEY. The following two procedures then return the desired index: 

TO ORDER :KEY :INDEX 

MAKE :INDEX SORT :KEY 

INDEX COUNT :KEY THING :INDEX 

END 

TO INDEX :L :IND 
IF :L=0 [STOP] 

TEST MEMBERP ITEM :L :IND :KEY 
.REPLACE :L :IND WHERE 
INDEX :L-l :IND 
END 

Example: 

MAKE "FIELD [GOEDEL ESCHER BACH] 

ORDER :FIELD "SEQ 

SHOW :FIELD SHOW :SEQ 

Answer: [GOEDEL ESCHER BACH] [3 2 1] 

ITEM ITEM 1 :SEQ :FIELD 
Result: BACH 

The key field is sorted in order, whereby the result is first provided with 
the name passed as the second input. Note that in this formulation the name 
is passed, not the value of the index. The desired index is created in the 
procedure INDEX. The call to TEST is called here only to be able to use the 
word WHERE. MEMBERP then indicates with WHERE at what location of the 
key field the first element of the sorted sentence occurs. This number is the 
index value, with which the data can be accessed after the sorting. 
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Example programs: 

TO CARDFILE 

OP [[MILLER ADAM 350902] [SMITH CARL 491224]! 
[BECKER DATA 801011] [ORWELL GEORGE 848484]] 

END 

TO OUTP :IND :L 
IF :L>:NUM [STOP] 

PR ITEM ITEM :L :IND CARDFILE OUTP :IND :L+1 
END 

TO KEY :FILE :L; CREATE KEY FIELD 
IF :L=1 [OP ITEM :I FIRST :FILE] 

OP SE ITEM :I FIRST :FILE KEY BF :FILE :L-1 
END 

TO SORTK :KY 

(LOCAL "NUM "I "FIELD) 

MAKE "NUM COUNT CARDFILE 

TEST MEMBERP :KY [NAME FIRSTNAME AGE] IFF [STOP] 
MAKE "I WHERE 

MAKE "FIELD KEY CARDFILE :NUM 
ORDER :FIELD "SEQ OUTP :SEQ 1 
END 

Call: SORTK "FIRSTNAME 

This example sorts the cardfile in CARDFILE according to first names, and 
then prints them. Age is written in the form year/month/day so that the 
comparison can be performed immediately. 
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Practice problems 

1) Write a program using SIEVE that searches for the prime 
number twins. Prime twins are neighboring prime numbers 
whose difference is not greater than two. 

2) A number of tasks must be performed for a test like a 
driver's license check. The processing of each task is 
assessed through points. Use the table program in Chapter 
16 to evaluate such a test for 10 participants. 

3) An expression of the form A* (B+C) can be represented as 
a tree structure. The appropriate list is: 

[* [+ B C] A] 

Represent the expression (A+B) *C+D* (A-E) as a list. Try 
to use the program ANIMAL for the construction of such tree 
structures. 
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Programs as Lists 


New Functions: 

TEXT, DEFINE, COPYDEF, DEFINEDP, PRIMITIVEP,RUN, 
Program’s list structure 

Programs: 

LOGOPLAN (table program with help programs) 

GENERATE (character program generator) 


17.1 Program text 


The LOGO programs you write using LOGO commands may be 
user-defined or may be LOGO'S basic vocabulary commands. Files built by 
programs and the programs themselves have the same structure—they are 
built using words. Even numbers are treated as words in LOGO. 

As you've already seen, programs can be represented as having a line 
structure. Now well take a look at how LOGO represents the programs that 
you've entered using a line structure. 

You can get a complete program listing with PO. If the specified program 
doesn't exist, the system responds with the empty list. Try the following 
line (make sure that the procedure ORDER from the previous chapter is in 
memory): 

PO "ORDER TEXT "ORDER 

The ST replies with: 

TO ORDER :KEY :INDEX 

MAKE :INDEX SORT :KEY 

INDEXIT COUNT :KEY THING :INDEX 

END 

[[KEY INDEX] [MAKE :INDEX SORT :KEY]! 

[INDEXIT COUNT :KEY THING :INDEX]] 
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You can replace ORDER with another program name to better understand 
how this works. 

The LOGO procedure TEXT outputs the program as a list. The list elements 
are the program lines. Each program line is a list as well. The procedure 
name isn't stored in the procedure. It is now used as a pointer to the correct 
program. 

The first list element is the input list. If the procedure doesn't have any 
inputs, LOGO inserts the empty list into this list location. 

If you give TEXT a non-existent procedure name, the empty list is output in 
response: 

TEXT "NOTHINGTHERE 
Result: [ ] 

Programs can be assigned just like other lists. 

MAKE "PROGRAM TEXT "ORDER 
PR :PROGRAM 

The procedure ORDER is output as the value of PROGRAM. 

You can work with the lists produced by TEXT just like with other lists. 
FIRST TEXT "INDEXIT 

LOGO responds with the procedure indexit's input list: 

Answer: [L INDEX] 

You can only examine procedures using the TEXT command. However, 
with other commands you can manipulate the program text like any other 
list. 
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17.2 Using programs to write programs 


The procedure TEXT makes a list out of a procedure represented using a line 
structure. You can reverse the process and turn a list containing program 
text into a procedure. You use the LOGO procedure DEFINE to do this: 

MAKE "PROGRAM [[LENGTH] [REPEAT 4 [FD :LENGTH RT 90]]] 

DEFINE "SQUARE :PROGRAM PO "SQUARE 

TO SQUARE : LENGTH 

REPEAT 4 [FD : LENGTH RT 90] 

END 

The procedure SQUARE is formed from the program text with the DEFINE 
command. You aren't given the message "SQUARE DEFINED" by LOGO 
in this case, although you would if you were writing a program. The system 
does this because it knows you don't want lots of little messages cluttering 
up the screen when you have one procedure defining other procedures. 

• The procedure DEFINE forms a LOGO procedure. It needs 
two inputs: 

The first input is the name of the procedure 
that is being defined. 

The second input must be a list. Each element 
of this list must be a list that contains one 
program line. The first element of this list is 
the procedure's input list. If there is no input 
needed for the procedure, there must be an 
empty list in this place. 

You can work in much the same way using DEFINE as you do to write 
programs in the EDIT mode. 

Three other LOGO functions are useful here: 
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• You can use COPYDEF to produce a copy of a procedure 
under a different name. 

• You can use DEFINEDP to find if a name is already defined 
as a procedure name. 

• You can use PRIMITIVEP to find if a name is a LOGO 
predefined function. 

For example: 

COPYDEF "ORDER.COPY "ORDER 
DEFINEDP "ORDER.COPY Answer: TRUE 

PRIMITIVEP "RANDOM Answer: TRUE 

Programming in LOGO is basically just a process of extending the 
language. Procedures used in conjunction with each other can be stored 
together in packages on the disk. You may wish to store several packages. 
For example, we could store the table functions developed in Chapter 16 in 
a package. 

Using DEFINEDP you can control which procedures are available. If you 
need some of the procedures, you can load their program package into 
memory. 


IF NOT DEFINEDP "TABLE LOAD "TABFUNC 

COPYDEF, DEFINEDP, and PRIMITIVEP become very important when 
you use a program generator to produce other programs. 


17.2.1 RUNning lists 

Now we can use lists to produce programs. A list can also be run directly 
using the command RUN: 

REPEAT 5 [PR 1 + RANDOM 6] 

This command is executed as soon as you hit the <Retum> key. 
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You can also use the LOGO command RUN to run this command if it is 
stored as a list. Then you don't have to enter the whole command again if 
you want another result: 

MAKE "LINE [REPEAT 5 [PR 1 + RANDOM 6] 

To get it to run, type: 

RUN :LINE 

RUN takes a list as input. The contents of the list are treated like input from 
the command level to the system. 

The RUN command removes the list's square brackets and forms an input 
line from the contents. It then carries out the instructions of that input line. 
A LOGO command can be given as input to the RUN command as well: 

MAKE "ACTION [PR 1 + RANDOM 6] 

RUN (LIST "REPEAT 4:ACTION) 

We can use a procedure name as input to another procedure. We can then 
use the procedure with RUN: 

TO EXECUTE :PROCEDURE 

( PR [THE PROCEDURE is RUN] :PROCEDURE ) 

RUN :PROCEDURE 
END 

TO DICE 

PR 1 +RANDOM 6 
END 

Call: EXECUTE [DICE] 

If you want something special done with the result, like have it printed, you 
must spell this out explicitly. Calling RUN is basically running a procedure. 
If you want something done, you must instruct the ST as such. 
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TO LOTTONUMBER 
OP 1 + RANDOM 49 
END 

Call: PRINT RUN [LOTTONUMBER] 
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17.3 logoplan: Calculated table program 


Now we'll improve the program package for working with tables that we 
developed in Chapter 16. We want to do more calculations with the table's 
contents—for instance, add up the contents of a line. 

The LOGOPLAN system lets us sum rows and columns. We need three more 
commands: 

•R 2 5: This will sum the table values from row two to row 
five of a particular column and store the value in the 
appropriate spot 

♦ C 3 6: This will sum the contents of a specified row from 
column three to six. 

• ! (exclamation mark): Reuses the sums defined by earlier 
input. 

The table formula is evaluated in the procedure tab . formula., which is 
called by the procedure value . 

TO TAB.FORMULA :C :FORMULA :I :IMAX 
; TABLE FORMULA'S NEW VALUES 
IF :I > :IMAX [OP :C] 

OP TAB.FORMULA RUN :FORMULA :FORMULA :I + 1 :IMAX 

END 

TO VALUE :E 
;PICK A COMMAND 

IF FIRST :E = "R [OP TAB.FORMULA 0 [:C + ITEM :I! 

ITEM :SN :TAB] ITEM 2 :E LAST :E] 

IF FIRST :E = "C [OP TAB.FORMULA 0 [:C + ITEM :L! 

ITEM :I :TAB] ITEM 2 :E LAST :E] 

END 

The procedure TAB . FORMULA is recursive. The result is stored in CLM as 
the procedure recursively calculates the answer. The procedure run for I 
from the input value for I to the final value IMAX, step by step. The 
formula is applied for each value of I. 
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In value a call is made to tab . FORMULA to take care of the R or the C 
command. The only difference is that we exchange columns for rows. To 
make a call for R, we use: 

:CLM+ITEM :I ITEM :SN :TAB 

This adds the element in row I and column SN to the value of CLM. If the 
result is plugged into a recursive function, we can sum the elements of a 
row or column. 

How is the evaluation in TAB. FORMULA accomplished? 

The recursive formula is passed as an input value. Here's where the local 
variable I (relative to TAB. FORMULA) comes in, as well as the names SN 
and L (current column/current line number, respectively) which come as 
global variables from the calling procedure COLIN or TBIN. 

The evaluation is performed with the LOGO word RUN. 

The procedure VALUE for evaluating the formula is used in connection with 
the input of the table values. In the already familiar program package from 
Section 16.2, this is done in the procedure COLIN, which must be changed 
accordingly. 

TO COLIN :SP :SPF :L 
IF :L > :I [STOP] 

BK 20 SETF 2 PRN ITEM :L :SP 
MAKE "E RL IF EMPTYP :E [GO "AWAY] 

IF :E = [!] [MAKE "E ITEM :L :SPF] 

IF COUNT :E > 1 [.REPLACE :L :SPF :E MAKE "E ! 

VALUE :E] [MAKE "E FIRST :E] 

IF ASCII FIRST :E <= 35 [SETF 0 PRN ITEM :L :SP ! 

IF ASCII :E = 27 [THROW "TOPLEVEL] [STOP]] 

.REPLACE :L :SP :E 

LABEL "AWAY SETF 0 PRN ITEM :L :SP 

COLIN :SP :SPF :L + 1 

END 

The input must now be followed with the READLIST procedure. If there is 
only an exclamation point, the input is replaced by the value of the list SPF. 
If the input list has more than one element, then a formula found in the list 
SPF is used. Finally the formula is applied by VALUE. On the other hand, if 
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the input list has only one element, then we can pass this value using the 
FIRST command. 

The extended version uses a second table besides the actual table— 
tabform. They're produced in the same manner, so they each have the 
same number of elements. Eventually only inputted commands are stored in 
this table so that they can be used later. The actual columns are passed to the 
procedure using the name SPF. As a result we need to change the call to 
COLIN in the TBIN procedure: 

COLIN ITEM :SN :TAB ITEM :SN :TABFORM 1 

In contrast to the actual table, we’ll use TABFORM as a global name. It 
won’t hurt anything, and keeps us from having to make a lot of changes in 
the calling procedures. For example: 

MAKE "TITLE "HOUSEHOLD 

MAKE "TPOS [100 50 50 50 50 50] 

TABLE "HOUSE 4 6 

TABLE "TABFORM 4 6 

INPUT :HOUSE :TPOS :TITLE 

The table can be filled something like this: 


• 1981 1982 1983 1984 TOTAL 

FOOD 3200 3450 3600 3820 14070 

CLOTHING 800 850 900 

TOTAL 4000 4300 4500 

The totals in the last line come from R 2 3. The totals in the last column 
come from the C 2 5 command. 

The next input you make can change the values. For this reason the totals of 
the formulas must be calculated again so F is considered input. We don't 
have to give the command to redefine values each time we RUN it, since the 
TABFORM table stores the appropriate information. 
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17.4 Program generator 


We can develop LOGO programs using the DEFINE function. The 
programs developed in this way can be collected together in a package and 
stored. If someone uses these programs later, they’ll work the same as if 
they'd been entered through the keyboard. It doesn't matter whether you 
develop a program on paper and input the program or whether you produce 
the program using a generator program. 

You may ask if this is really so useful an idea. You might say the that the 
idea for a program ultimately comes from you anyway. We really can't 
argue the point at this time, but will try to suggest the utility of this LOGO 
feature. We won't go into all the possibilities that a program generator 
opens up. Let's take a look at a simple example. 

We'll use both the DEFINE command and the RUN command. Here is one 
method of producing programs using another program: 

• You can enter several small modules required for the 
program into the computer via the generator program. For 
this we use different input devices including the keyboard 
and the mouse. 

• We review, edit and even erase the individual modules. 

• We build a program out of the small modules entered. 

The program automatically runs through all the modules. Entering programs 
is made much easier by this method. This method of entering programs is 
so easy the even people who don't know how to program can enter 
programs. This method allows us to try out program modules and to put 
these modules together to form a program. The LOGO system executes all 
your commands. 


17.4.1 Entering graphics programs with the mouse 


A graphics program should be a good example. We can use the mouse to 
help us. The mouse can be moved around the screen easily and quickly, and 
is a good way to input data. 
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We can move the mouse pointer to various positions and use its position to 
form a graphics command. The easiest command is SETPOS, used to input 
the next position of the turtle. Now let’s work on GENERATE, the main 
program for this example. 

TO GENERATE /PROGRAM TO GENERATE GRAPHICS PROGRAMS 
CS MAKE "GFILL "TRUE MAKE "LEARNED [] 

LOCAL "AK /ACTUAL ACTION 
LABEL "A 

IF KEYP [LEARN KEY RC] [MAKE "M MOUSE] 

IF ITEM 4 :M [LEARN MAKE "AK LIST "SETPOS SE ! 

RND :M] [GO "A] 

IF ITEM 3 :M [MAKE "AK SE "PU :AK] [MAKE "AK SE ! 

"PD :AK] 

RUN : AK 

IF NOT LAST :M [DEFIT] [GO "A] 

END 

You are probably wondering what LABEL "A and GO "A do. If the 
mouse is used for input, the mouse must regularly be polled for information 
by the program. The Boolean function KEYP in the third line tells the 
program whether the key has been pressed or not. 

You can’t do much with a graphics program using just mouse movements 
and two mouse keys. You could develop a menu and use the mouse to 
choose items on the menu, but that’s getting off the subject too much. We’ll 
use the keyboard instead. Hitting a key calls the procedure LEARN and the 
related procedure KEY. The inputted character is read with READCHAR 
(RC) and passed to the procedure KEY. 

If no key on the keyboard has been pressed, the program polls the mouse 
and the two mouse buttons. The right button selects points. The left button 
determines whether the turtle’s pen is up or down. If just the right button is 
pressed, then a line will be drawn to the new point. If both buttons are 
pressed, the pen is lifted and a new point is selected. 

The new position of the pen is stored in the first two elements of M. 

Actually we make a detour via the RND procedure here. It’s unlikely that 
you can enter precisely the point you want with the mouse pointer. For this 
reason, we want to compare the current mouse position with its previous 
position and adjust it. 
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When the cursor moves to a new spot, the command SETPOS is given. We 
build a list using LIST and store it under the name AK. The first element of 
this list is the word SETPOS. The second is a list containing the two 
coordinates that came back as output from the RND procedure. 

The cursor is moved with the RUN : AK command. We use the list AK to 
help build the graphics program: 

TO KEY :T 

IF :T = "B [RIGHTCORNER] 

IF :T = "C [CIRC] 

IF :T = "R [REDO] 

IF :T = "I [IGNORE] 

END 

TO LEARN 

IF EMPTYP :AK [STOP] 

MAKE "LEARNED LPUT :AK :LEARNED 
END 

TO REDO ;ERASE LAST MOVE 
IGNORE 

CS DOAGAIN :LEARNED 
END 

TO IGNORE /CANCEL THE LAST THING LEARNED 
IF EMPTYP :LEARNED [STOP] 

MAKE "LEARNED BL :LEARNED 
MAKE "AK [] 

END 

TO DOAGAIN :E 
IF EMPTYP :E [STOP] 

RUN FIRST :E 
DOAGAIN BF :E 
END 

TO DEFIT 

INVITATION [ENTER PROGRAM NAME] 

DEFINE RQ FPUT [] :LEARNED 

END 
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These procedures are the basis of the program generation. The KEY 
procedure permits four commands to be given via the keyboard— B for box, 
C for circle, R for redo and I for ignore. The REDO procedure gets rid of an 
erroneous step. It clears it from both the memory and the screen. The 
IGNORE procedure clears the bad step from memory without changing the 
screen. The REDO procedure erases the graphics window and uses the 
commands and procedures it has "learned" and stored to redraw the entire 
window. 

For LEARN we need the command list stored in the list LEARNED. The 
REDO procedure requires DO AG AIN to repeat modules using the RUN 
command. With DEFIT we finally develop the program we want 

The main program GENERATE calls DEFIT if the last element of mouse's 
answer is FALSE. DEFIT is exited if the mouse pointer moves out of the 
graphics window. The procedure INVITATION is used to display 
messages to the user. It outputs text to the upper part of the graphics 
window. 

We can output text to the position we want with the TURTLETEXT 
procedure. Since the cursor has to return to its original position (with the 
LOGO procedure TURTLEFACTS (TF)), we ask questions and look up 
information in the TURTLE file. A reminder: 

• turtlefacts is a list containing the coordinates of the 
point. This list also contains information about the pen's 
current attributes and character color, and determines whether 
or not the turtle is visible. 

♦ We can change the pen's attributes and color using the 
SETPEN procedure. 

TO INVITATION :L ;MAKE SOME COMMENTS 

MAKE "TU TURTLEFACTS 

SETF 0 BOX [-145 150 290 20] 

PU SETPOS [-140 152] PD TT :L 

PU SETPOS PIECE 1 2 :TU SETPEN PIECE 4 5 :TU 

END 

TO SETF :I 
SETFILL (SE :I 1 1) 

END 
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The SETF function is used to define the method we fill the screen using a 
table function. Now we just need to give you the procedures for the right 
comer and circles, and the RND function. 

TO RIGHTCORNER 

INVITATION [CLICK IN LOWER LEFT CORNER] 

LABEL "LEFT 

IF ITEM 3 MOUSE [PU SETPOS PIECE 1 2 MOUSE] ! 

[GO "LEFT] 

INVITATION [CLICK IN UPPER RIGHT CORNER] 

LABEL "RIGHT 

IF ITEM 3 MOUSE [MAKE "BL (SE POS (FIRST MOUSE) -! 

XCOR (ITEM 2 MOUSE) - YCOR)] [GO "RIGHT] 

BOX :BL INVITATION [] 

MAKE "AK LIST "BOX :BL 
END 

TO CIRC 

(LOCAL "RADIUS "X "Y) INVITATION [CLICK MIDDLE ! 
POINT!] 

LABEL "MIDDLE 

IF ITEM 3 MOUSE [PU SETPOS PIECE 1 2 MOUSE] ! 

[GO "MIDDLE] 

INVITATION [CLICK ON RADIUS] 

LABEL "LINE 

IF ITEM 3 MOUSE [MAKE "X FIRST MOUSE MAKE "Y ITEM ! 

2 MOUSE] [GO "LINE] 

INVITATION [] 

MAKE "X XCOR - :X MAKE "Y YCOR - :Y 
MAKE "RADIUS SQRT :X * :X + :Y * :Y 
MAKE "AK SE POS :RADIUS CIRCLE :AK 
MAKE "AK LIST "CIRCLE :AK 
END 

TO RND 

IF (ABS XCOR - FIRST :M) < 5 [.REPLACE 1 :M XCOR] 

IF (ABS YCOR - ITEM 2 :M) < 5 [.REPLACE 2 :M YCOR] 

OP PIECE 12 :M 

END 

You can write more procedures to fill the screen in different ways and add 
letters to the list of acceptable characters in the KEY procedure. 
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Exercises 

1) The Pascal programming language has WHILE and 
REPEAT-UNTIL as control structures. The WHILE 
structure repeatedly carries out a task as long as its Boolean 
expression remains true when the WHILE is encountered. 
When it becomes false, the program goes to the next block 
of code. The REPEAT-UNTIL statement continues to loop 
until the Boolean expression on the until line becomes 
true. Define the LOGO procedures WHILE and 
REPEAT-UNTIL as an exercise. 

2) Use the table-calculating program for evaluating a basketball 
tournament. Develop the necessary formulas. 

3) Expand the program generator for graphics programs to 
enable it to produce more graphic designs. 
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Error messages and property lists 


New Commands: 

CATCH, ERROR, THROW, PAUSE, ERRACT, GLIST, GPROP, 
PLIST, PPROP, PPS, REMPROP, 

SETPEN 

Programs: 

Continue table output, STORE (Save using overwriting and a . BAK file), 
DESCRIBING (describing an object), FILES (get a file with a property list) 


In the last chapter some more possibilities for ST LOGO should have 
occurred to you—we were only scratching the surface. The programmed 
break THROW "TOPLEVEL can be used more. We need to look at how to 
generalize this function. 

We'll discuss property listing briefly when we look at disk operations. 
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18.1 Jumping several levels 


Usually we'll end a procedure with STOP or OUTPUT when its job is done. 
Then the LOGO system returns to the calling program. But maybe you want 
to return to command level without further action on certain inputs. You can 
use THROW "TOPLEVEL in all procedures to take care of special cases. 

To return to the command level, the LOGO system must take care of the 
necessary steps to tie up loose ends in the running procedure. It should also 
be possible not just to return to the command level, but also to skip a few 
steps. 

You can make a jump within a procedure using the GO command. A called 
procedure can jump over several steps of the procedure call if you use 
THROW. Like GO, THROW needs a destination. If you don't supply one, 
LOGO uses TOPLEVEL as the goal. To define your own destination for 
THROW, you use the LOGO command CATCH. This functions for THROW 
the way label does for GO. 

TO DEMO 

CATCH "GOAL [STEP2] 

PR [DESTINATION IN DEMO IS REACHED] 

END 

TO STEP2 

PR [STEP2 IS REACHED] 

STEP3 PR [IN STEP2, BACK FROM STEP3] 

END 

TO STEP3 

PR [NOW IN STEP3] 

PR [SHOULD I RETURN TO DEMO?] 

IF FIRST RQ ="Y [THROW "GOAL] PR [CONTINUE LATER] 
END 

You should be able to see how THROW and CATCH work from this 
example. If you answer the question in STEP3 with yes, the next message 
displayed confirms that the destination was reached. If you answer no, you 
return to STEP2 from STEP3. In this case too, the destination is reached 
after STEP2 ends, because this is the next instruction after the call from 
STEP2. 
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CATCH has two inputs. The first is a word that marks the destination. The 
second represents a list of runnable commands. It's an input that stands for 
the LOGO command RUN. 

Notice that the jump to the destination of the CATCH instruction is only 
possible from procedures called by the procedures listed in the input list. 
The destination must be found with another word in a procedure that wants 
to return to the command level. Here the name of the jump destination is 
local—ie. you can use the same name along several paths without causing 
problems. 

For a useful application we should develop the topics of Chapter 16 and the 
LOGOPLAN program of Chapter 17 further. Several procedures are needed 
for the input of table values. The procedure COLIN has two special cases. If 
'#' is input, it uses STOP to proceed to the following column. If <Esc> is 
entered, it returns to command level using THROW "TOPlevel. 

It should also be possible to return to the table's beginning, which is 
basically a jump over two steps in the procedure INPUT. For this reason, 
the last two lines in INPUT are changed as follows: 

LABEL "BEGINNING SETPOS [0 6] 

CATCH "HOME [TBIN 1 0] 

GO "BEGINNING 

After the input to the table, INPUT always returns to the table's beginning 
because of GO "BEGINNING. The repetition can be stopped using <Esc> 
or <Control>G. As a result it's possible to use a special code in COLIN to 
go to the destination HOME. In COLIN you'll find the command sequence 
IF ASCII :E = 27 ... [STOP ]. Now replace the [STOP] with this: 

[IF ASCII:E =34 [THROW "HOME] [STOP]] 

Then the command to return HOME has been given. 
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18.2 Programmed error handling 


Normally errors open an error window in the middle of the screen. After 
outputting the error message, LOGO goes into a waiting state that can be 
ended with your OK or by a call from the Editor. Problems with peripherals 
have their own special messages. 

In practice, this reaction to errors works very nicely. LOGO is a typical 
language for an interpreter. If an error appears, the problem program can be 
corrected and you can run it again. Bad values can be fixed by further 
editing. Global names can even be processed with the editor—which is 
much easier to use for complicated data than using MAKE again. 

It's a little different when you have errors that LOGO doesn't acknowledge. 
Good applications programs shouldn't have any errors. But they must have 
the capability to end on a wrong input from the user. We can use the LOGO 
procedures we have on hand to catch these errors. 

When an error crops up, ST LOGO has the instruction THROW "ERROR to 
jump to a CATCH "ERROR. If you use this command, you can identify the 
problem then and there, and you won't see are error message. 
CATCH "ERROR must be found in a procedure that will be executed when 
returning to the direct mode, just like the THROW instruction. However, 
CATCH "ERROR cannot appear in several paths at the same time. 

For most applications the possible errors that may occur are pretty obvious. 
You can use the function ERROR to get the message about the last error that 
occured as a list. Try it out: 


ERROR 

The line following the CATCH "ERROR can also be reached through 
normal termination of the commands in the instruction list. The case in 
question can be tested if necessary. 

TEST EMPTYP ERROR 

This returns the value TRUE, which can be used with IFT. 

The procedure STORE is a simple application. When we store to disk using 
SAVE, we aren't allowed to overwrite the file already there. An error 


354 



Abacus Software 


ST LOGO User's Guide 


message results if the filename already exists. We can disable this error 
message with CATCH "ERROR: 

TO STORE :FILE 

CATCH "ERROR [SAVE :FILE] 

IF EMPTYP ERROR [STOP] 

MAKE "F WORD :FILE PIECE COUNT :FILE 11 "0000000.BAK 
CATCH "ERROR [ERASEFILE :F] 

CHANGEF :F :FILE SAVE :FILE 

(PR [OLD VERSION FROM] :FILE [NOW ACCESSABLE AS] :F) 
END 

In contrast to SAVE, it should be possible to store files with the same name 
as those already on file using STORE. Then you can store the file under the 
name you want. 

The first CATCH intercepts the error message on save's first try. A new 
filename that changes the filename extensions from LOG to BAK is built. To 
avoid a LOG extension, the filename F must have more than eight 
characters, so we use the zeros for this. 

When the second CATCH "ERROR is reached, the original file is erased (if 
it existed). We use ERASEFILE to do this. 

The above method is used in data processing. You keep two generations of 
programs. The "father" remains as a backup. The "grandfather" is removed 
when its "grandson" is created. 

The files with a BAK extension do not show up when you call DIR. You 
can check your BAK files with the following: 

DIR "#*.BAK 
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18.3 Property lists 


An object can be described using its name and its properties. When we talk 
about properties, we need to differentiate between the property itself, i.e. 
the color, and the property's value, i.e. the color red. A property is actually 
a pair—the actual property and its value. The property is a word, but the 
value can be a word or a list. 

Property lists are lists that are constructed from these pairs. 

The encompassing concept of property lists forms the structure of the 
LOGO interpreter. LOGO files and programs are handled in the same 
way—as objects with names and properties. 

To work with the properties behind a name, you can use the LOGO 
command PLIST. 

MAKE "NUMBER 10 
PLIST "NUMBER 
Answer: [.APV 10] 

PACKAGE "FOLLOW [NUMBER] BURY "FOLLOW 
PLIST "NUMBER 

Answer: [.pak FOLLOW .APV 10] 

PLIST "FOLLOW 

Answer: [.BUR TRUE .PKG TRUE] 

The first element in a pair is the actual property. For example, here it is 
.APV, .PAK, .BUR, .PKG. The properties that begin with a period are 
LOGO system properties. There are twelve of them in the LOGO manual. 

• . apv means that the value is a global variable 

• . PAK means that it belongs to a package (see Chapter 8) 

• . PKG means that it is a property used as a package name. 

• . BUR means that the property is to be stored, or buried. 

Procedures in the work area are accessable. You ask for the property of the 
procedure with p LIS T: 

PLIST "PROCEDURENAME 
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You'll see the property . DEF. It lists all of the text—exactly the same as the 
LOGO command TEXT. We also find properties used to format the program 
text and various format comments. Try this out: 

PLIST "FORWARD 
Answer: [. PRM 16642] 

The property . PRM means that the object is part of the basic vocabulary of 
ST LOGO. We won't go into the number's significance—it is important 
only to the interpreter. 

You can learn the value of a property with GPROP : 

GPROP "NUMBER ".APV Answer: 10 

GPROP "NUMBER ".PAK Answer: 'FOLLOW 

GPROP "PROCEDURENAME ".DEF Answer: Programtext 

GPROP "NUMBER "COLOR Answer: [] 

When the property requested doesn't exist, the empty list is displayed. 

We can give an object properties using the LOGO command PPROP: 


PPROP 

"CAR 

"COLOR 

"RED 

PPROP 

"CAR 

"PRICE 

"20000 

PPROP 

"CAR 

"TYPE " 

MERCEDES 

PLIST 

"CAR 




Answer: [TYPE MERCEDES PRICE 20000 COLOR RED] 

GPROP "AUTO "COLOR 
Answer: RED 

In Chapter 8 we worked with the LOGO command REMPROP, which 
allows us to remove properties. We don't change the value—we remove the 
whole property: 

REMPROP "CAR "PRICE 

Now the car we used in our example no longer has a price. To change the 
values we can use PPROP. The GLIST command lets us find out which 
names have certain properties. 
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PPROP "SKY "COLOR "BLUE 
GLIST "COLOR 
Answer: [CAR SKY] 

Finally there is the LOGO command PPS, which outputs all the names with 
a particular property without looking at the system properties. 

The two functions PPS and GLIST give a single package name or a whole 
list of package names as input, so that the scope of the search for the 
properties in various packages can be reduced. 
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18.4 Property lists as data structures 


Property lists are a flexible data structure and data connection, since the 
properties of the names can be of totally different types. We discussed 
connecting data already in Section 16.4. What is the difference? 

In Chapter 16, the data is put into a list where the properties if the individual 
elements (which constitute values of properties) are not stated explicitly. To 
access a piece of data—for example, a person's address—you need to know 
which element in the data list is the address. The order of the list makes a 
big difference. On the other hand, the individual elements in a property list 
have their properties spelled out explicitly. As a result, the order of elements 
in a list really doesn't matter. 

The first method only stores the values. The properties are stored implicitly 
in the order of their elements, and maybe in an index. The second method 
stores the properties in memory explicitly. 

Since it's annoying to have to continually add new properties with a lot of 
PPROPs in the command area, we'll write a little program to help: 

TO DESCRIPTION 
(LOCAL "E "W) 

LABEL "START CT 

PR [PLEASE ENTER THE OBJECT'S NAME] 

MAKE "OBJECT RQ 

(PR [DESCRIBE] :OBJECT [BY IT'S PROPERTIES!]) 

LABEL "A TYPE "PROPERTY: MAKE "E RQ 

IF EMPTYP :E [GO "START] ;DESCRIPTION DONE 

TYPE "VALUE: MAKE "W RQ 

PPROP :OBJECT :E :W GO "A 

END 

Now you can easily enter LOGO property lists in the dialog window, much 
the same way as entering data in a good data base. 

The property list can also be structured so that words are defined by other 
words. Search words can be used as representations of properties and take 
on the other’s values. 
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18.5 File retrieval and file management 


In Section 16.4 we sorted a small index. The data was set up in a procedure 
index. We can program a simple, flexible file retrieval method with 
property lists: 

TO FILE :DESIGNATOR 

CT (PR [ENTER FILENAME:] :DESIGNATOR) 

PR [PLEASE ENTER PROPERTIES] 

MAKE "PROPERTY RL 

CATCH "CLOSE [GRAB 1 :PROPERTY :DESIGNATOR] 

PPS :DESIGNATOR 

PR [] PR [FILE LIST ON DISK ?] 

IF FIRST RQ = "N [STOP] 

CATCH "ERROR [ERASEFILE .-DESIGNATOR] 

SAVE :DESIGNATOR :DESIGNATOR 
END 

TO GRAB :I :PROP :DESIG 

LOCAL "NAME MAKE "NAME WORD :DESIG :I 

CT (PR [FILE LIST :] :NAME) 

BATCH :NAME :PROP /GRAB BATCH 

PACKAGE :DESIG :NAME ; ORDER DESIG TO PACKAGE 

GRAB :I + 1 :PROP :DESIG 

END 

TO BATCH :NAME :PROPERTY 
(LOCAL "E ”W) 

IF EMPTYP :PROPERTY [STOP] MAKE "E FIRST :PROPERTY 
(TYPE :E [:]) MAKE "W RQ 
IF :W = "EOF [THROW "CLOSE] 

PPROP :NAME :E :W 

BATCH :NAME BF :PROPERTY 

END 

This program uses CATCH and PACKAGE in addition to property lists. We 
can order a package with the second input and thus reduce the storage area 
required. 

The FILE program works as follows: It creates file whose name is in 
DESIGNATOR i.e. FILE "AUTO. This name is first used as a package 
name so that the data records are kept together. Next you enter the property 
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names for the records i.e. MODEL PRICE COLOR. The individual data 
records have names generated that consist of the filename followed by the 
current number—i.e. AUTOl, AUT02, etc. Then you enter the actual values 
for the properties—i.e. PORSCHE, $60,000, RED. EOF (End Of File) 
must be entered as the first property to finish the data input. The file can 
then be saved under the name in DESIGNATOR. 

For genuine data management, we are still missing programs to output the 
data records easily and to expand and correct the existing data. You can 
write these extensions as you see fit. When reading a file, the package name 
can be given as a second input to LOAD so that data read in is assigned to 
the desired package. The numbering of the data records when making 
changes also deserves special attention. 

In Section 16.4 the address index was sorted. We must now form a list of 
all the values for a certain property. That's fairly simple: 

TO KEY :DESIGNATOR -.PROPERTY 

OP SLIST 1 

END 

TO SLIST :I 
LOCAL "N 

MAKE "N GPROP WORD :DESIGNATOR :I :PROPERTY 
IF EMPTYP :N [OP []] 

OP SE :N SLIST :I + 1 
END 

You can use KEY to read the properties of the files you create with 
FILE—i.e. KEY "AUTO "MODEL will return all the values under the 
property MODEL in the file AUTO. 

With routines to enter data and output data, you have the foundation of a 
data management system. Without too much difficulty, you should be able 
to expand on the techniques demonstrated here to create a full-fledged data 
management system that can sort and edit records. 
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Exercises 

1) The Function plotter program developed in Chapter 11 
crashes when an error occurs. That happens easily in functions 
with certain properties. Improve the program using THROW 
"ERROR to deal with error problems. 

2) Revise the FILE file retrieval program so that the files can be read 
in, extended, and corrected. For storing you can use the procedure 
STORE as an improvement of SAVE. 

3) Write a program that uses property lists as placeholders for several 
actual words in a text. 

4) Develop a complete function for file management to sort file lists 
and to make the properties available, using property lists. 
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EDIT 6, 53, 59, 60, 67, 85, 91, 110 

Edit menu 60, 61, 65, 66, 85 

editing 51, 59-63, 65, 67, 71, 124 

editor 16-18, 59, 62, 63, 65, 69, 71, 79, 82, 85, 296 

editor functions 16-18 

EDNS 59, 67,136, 138 

EDPS 59, 65, 67, 136, 138 

ELLIPSE 189, 195, 196, 199, 205, 206 

EMBROIDR 97, 113, 114 

EMPTYP 141, 159-162, 165, 166, 221, 222, 244, 254, 255, 290, 
295-297, 299-301,315 
Epson printer 129 
EQUALP 141, 170 
ERALL 59, 70, 135, 136 

ERASE 59, 70, 122, 123, 130, 131, 135, 207, 259-261, 283 
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ERASE . POINT 259, 261 
ERASE . TEXT 259, 260 
ERASEFILE 121, 124, 134 
ERN59, 70, 123, 131 
ERNS 59, 70, 123, 131, 136 
ERPS 59, 70, 123, 136 
ERRACT 351 
ERROR 351, 354 
error box 15, 21, 23, 82 
error message box 6, 67, 93 
Escher, M.C. 274 
Esperanto 317 
EXP 13, 26, 27, 282 

factorial 243 

filename extensions 123, 129 
FILES 351 

FILL 189, 204, 205, 251, 272, 275, 314, 315 
FILLATTR 189, 205 
FILLING 259, 272, 276, 278 
FIREWORKS 189, 201, 216 

FIRST 141, 156, 157, 160-165, 178, 222, 244, 289, 290, 295-297, 
299-301,315,323-329, 341 
folders 128 

FPUT 141,163-165,173, 289,290,311,321 

functions 7, 16-18, 20, 26-29, 40, 41, 49, 50, 66, 71, 93, 105, 138, 211, 
222, 242, 261, 262, 271, 282, 307, 311, 314 

GCD 235, 244, 245 

GEM 3, 5-7, 10, 42, 43, 82, 93, 123,127, 128, 271 
GENERATE 333,343 
GETTEXT 259 

GFILL 189, 205, 251, 260, 272-275, 284, 313 
GLIST 121, 136-138, 351, 357, 358 

global names 64, 65, 68, 69, 101, 102, 122, 123, 131, 135-137, 153, 
213, 226, 227 

GO 177, 179-182, 235, 236, 254, 255, 272, 277, 293, 294, 301, 352 
GPROP 351, 357 
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graphics 76-91, 248-252, 259-284, 313, 315 
entering with mouse 342-344 
screen 6, 76, 80, 88, 100, 129, 212, 216, 221, 225 
three-dimensional 277-285 
using reproduction and recursion 95-115 
with coordinates 189-216 

GRAPHICS DISPLAY window 5, 6, 8, 9,13, 189-191, 196, 259, 260, 
263, 267,315 
GREETING 177-179 
GREETINGS 289, 301, 303 

HEADING 189, 201, 203, 275 
hierarchical lists 145-173 
HILBERT 259,265-267 
HORNER 219, 222, 223, 225, 244 

IF 97, 115, 116, 147, 159, 161-182 

IFFALSE 289 

IF TRUE 289 

index 205, 307, 327, 328 

infix notation 20, 170 

inner angle 99 

input line 16-18, 24, 37, 39, 40, 42,51,52, 79, 82, 93, 110 

input lists 177, 178 

inserting characters 63 

inserting lines 63 

INT 13, 28, 29, 223 

ITEM 141, 146-156, 249, 254, 272, 280, 292, 300, 312, 313, 315, 
322-329 

iterative programming 235-237, 253-256, 309 

Keyboard Commands: 

<Backspace> 18, 63 
<Control> key 16, 61 
<Control>A 17, 18 
<Control>C 45, 60 
<Control>D 18 
<Control>E 17, 18 
<Control>G 35, 42 
<Control>K 18, 67 
<Control>Y 16, 18 
<Delete> 18, 63 
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<Enter> 6, 82, 

<Retum> 3, 6, 14-16 
KEYP 177, 181-183,343 

LABEL 177, 180, 181, 235, 236, 254, 272, 277, 293, 301 
LAST 141, 156, 157, 160, 163, 164,169, 172, 248, 249, 254, 289, 290, 
301,323-325 
LCM 235, 244, 245 
LDRAGON 259, 266 
LISP 303 

lists in LOGO 141-173, 190, 191, 193-195, 198, 199, 202, 208, 210, 
289-296, 297, 300, 301, 307-313, 318-323, 325-327, 330 
list elements 208, 289, 318 
LISTP 141, 166, 178, 221, 307, 321, 322 
LOAD 121, 124, 127, 134, 136, 137 
Load Pic... 129 
LOADPIC 121, 129 
Load... 126, 127, 129 

LOCAL 97, 99-101, 104, 169, 181,199, 200, 203, 212, 223, 226, 248, 
249, 255, 273, 275, 280, 281, 283, 299-301, 311-313, 315, 329 
local names 59, 67, 68, 90, 101, 102, 131, 213, 226, 240 
LOG 13, 26, 27, 123-126, 134, 265 

LOGO DIALOGUE window 5, 6, 8-10, 13, 77, 80, 82, 121, 130, 177, 
259, 260, 271 

Logoplan 310, 333, 339-341 
LOTTO 141, 169, 172 

LPUT 141, 163, 164, 169, 223, 290, 297, 321, 323-325 

MAKE 13, 21-26, 30, 39, 46-49 
mantissa 27 

mathematical functions 26,49, 66, 222 

MEMBERP 141, 166-169, 221, 293,294, 299, 300, 308, 309, 328, 329 

menu bar 7, 16,42,43,59, 61, 94,109 

MIRROR 141, 161, 162, 165, 290 

MIRROR.SENTENCE 141 

MOUSE 259, 271, 272 

mouse 4, 6-10, 78, 82, 85, 91, 93, 94, 109, 121, 124, 126-128, 191, 
206, 208, 210, 259, 271, 272, 315 
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NCORNERS 97, 116 
NODES 121, 132 

NOT 141, 170, 179, 180, 266, 300, 308, 309 
NUMBERP 141, 166, 179, 180, 221 

operation character 15, 19, 20 
OR 289,299, 300 

origin 189, 190, 196, 211, 214, 263-265, 
outer angle 99 

output 45, 51, 52, 116, 222, 242, 243, 313, 352 

PACKAGE 121, 135,137, 360 
packages 122, 133, 135-138, 298, 310, 336 
PARAGRAPHEXCHANGE 289, 296 
PAUSE 351 

PENERASE 189,207, 208, 260, 261 
PENREVERSE 189, 207, 208, 261 
PERMUTATIONS 235, 242, 243 
PI 13, 29... 

PIECE 141, 148, 149, 152, 156, 167, 168, 173, 272, 300, 323-325 

PKGALL 135 

PLIST 351,356,357 

plotter 189, 212-215, 228-230 

PO 59, 69, 130, 333 

POALL 59, 69, 122, 136, 138 

POCALL 219, 228-231, 236, 246, 248, 251, 325 

POINT 259, 261, 280, 281 

POLY 189, 198, 205, 206, 273, 283, 284 

POLYCIRCLE 189, 200 

POLYGON 97-100, 103, 104, 106, 108-112, 115, 189, 198, 199 

POLYGONX 189, 199 

PONS 59, 69, 101, 122,136-138, 226 

POP KG 121, 135, 136, 138 

POPS 59, 69, 136, 138 

POREF 219, 228, 230 

POS 189, 199, 200, 203, 260, 275, 277, 280 
POTS 59, 69, 122, 130, 136, 138 
PPICTURE 259, 274 
PPROP 351, 357, 359 
PPS 351, 357 
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prefix notation 20, 27, 170 
Prime number sieve 308 
primitivep 333,336 

PRINT 35, 37, 39-41,46-49, 67, 142-145, 150-153, 155, 160, 164, 165, 
177, 221,248,259,313,315 
procedure names 13 

procedures 24, 46, 51, 59, 60, 64, 65, 67-70, 89-94, 121-124, 126, 130, 
135-137, 141-174,219, 221, 222, 225-230, 236, 240, 242, 247, 
249-251, 261, 266, 279, 280, 289-303, 308, 317, 320, 327, 328 
procedures with results 49 
PRODUCT 13, 26, 27 
program generator 342 
programming 20, 25, 27, 37, 40, 48, 50 
property lists 206, 307, 327, 356-358, 359 
punctuation 24, 41, 141 
Pygmalion 302 

Quit 127 

QUOTIENT 13, 28, 29, 105, 106, 174, 212 
RADIANS 13, 29 

RANDOM 35, 37, 39-42, 46, 48, 49, 51, 52, 80-82, 86, 94, 144, 154, 

155, 169, 173, 181, 182, 191-198, 201, 206, 216, 225, 226, 
262-265, 272 

random numbers 35, 262, 263 
RDRAGON 259, 266 
REACTION 177, 181, 182 
READCHAR 182, 183,185, 315, 343 
READLIST 177-179, 185, 322 
READQUOTE 177-180, 185, 315,322 

recursion 97, 108-116, 159, 161, 173, 198, 211, 223, 228, 229, 235-247, 
253, 268, 270, 324 

recursive call 198, 211,236,239, 308 
RECYCLE 121, 131, 132 
relation 326, 327 
relief maps 282 

REMAINDER 13, 28, 29, 105, 106, 116, 174, 221, 223, 244, 277 
REMPROP 121, 136, 351 

REPEAT 35, 39-42, 46, 48, 79, 80, 82-85, 87-90, 93, 98, 99, 103, 104, 
106, 108, 112, 115, 144, 145, 181, 182, 194, 195, 199, 200, 206, 
208, 219, 223, 245, 261, 263-279, 308, 309, 311 
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repetition 35, 39, 79, 97, 100, 108,109, 115, 117, 161, 165, 169, 173, 
211, 235, 236, 238, 253, 272, 294, 314 
REPLACE IT 289, 293-296 
REP TAIL 289, 292 
RERANDOM 35, 185 
RINGS 259, 275 
RND 343,347 
ROLL 51,52 

ROSETTE 97, 106, 107, 123,131 
ROUND 13, 28 

RUN 333, 336-338, 340-345, 353 
Run Buffer 16 

SAS 189, 203,216 
Save 60, 66, 79, 86, 126, 129 
Save as... 126, 129 
Save Pic... 129 
SAVEPIC 121, 129, 263 
saving 123, 127, 129, 135 
SCREENFACTS 189, 210 
scrolling 10, 130 
searching 298 

SENTENCE 141, 150-152, 154, 160, 162-164, 191, 193, 198, 259, 289, 
290, 293, 294, 320, 321 
SET.POINT 259, 261 
SETBG 189, 210 
SETCRUNCH 189 

SETFILL 189, 260, 273, 275, 284, 314, 316 

SETHEADING 189, 201, 202, 208 

SETLINE 189, 206, 211, 212, 216, 269, 270 

SETPAN 189, 190,196,197,210-212, 278, 282, 283, 313 

SETPATH 121, 134 

SETPEN 351 

SETPC 189, 208 

SETPOS 189-193, 198, 199, 202, 203, 208, 211-213, 261, 265, 267, 
269, 272, 273, 278-280, 282, 283, 313, 315, 343 
SETTEXT 259, 285, 316 
Settings menu 204 

SETX 189, 191-193, 199, 200, 212, 213, 263, 264, 273, 275 
SETY 189, 191-193, 199, 212, 213, 263, 264 
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SETZOOM 189, 197, 210 

SHOW 141, 143, 151, 160, 163, 164, 293, 296, 328 

SHUFFLE 141, 173, 174 

SIERP INSKI 259, 265-269 

SIN 13, 29,49, 199, 200, 211, 214, 216, 262, 282 

SINECURVE 189, 211 

SOLARSYSTEM 189, 196, 197 

SORT 52, 141, 172, 307, 327, 328, 361 

sorting 307, 326-328 

SQUARE 335 

SQRT 13, 26, 27, 30, 49, 65, 113, 263-265, 268, 269, 275, 282, 308 
stack 239 

STOP 97, 115, 116, 147, 159, 211, 213, 263-269, 273, 282, 283, 295, 
296, 352 
STORE 351 
STRATEGY 254 
strings 167, 171, 326 
structured programming 72, 220 
STUTTER 141, 165 
subroutines 314 
SUBSTITUTE 289 
SUBSTITUTE IT 289, 290, 293, 294 
SUM 13, 26, 27 

SURFACE 45, 179, 180, 259, 282-284 
syntax (LOGO) 21, 41, 62, 170, 292, 294, 296 
system diskette 3, 4, 121 

TAN 13, 29 

TEST 289, 300, 301, 315, 328, 329 
TEXT 333-335,357 
TETRA 245-246 
TETRAHEDRON 259, 281 
text screen 6, 10, 16, 130 
three-dimensional graphics 277-285 
THROW 351, 352-354 
title line 10, 60, 79, 135, 136 
titles 69, 310, 316 
TO 45,51-53,59,60, 64, 65... 

TOS 3, 128 

TOWARDS 189, 202, 203, 264, 265, 277, 280 
TOWER 251-252 
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Towers of Hanoi 247-252 

turtle 76-78, 82-88, 98-107, 199, 207, 261 

Turtle graphics 199, 261 

TURTLE .HUNT 189, 192 

TURTLEFACTS 189, 208, 346 

TURTLE TEXT 259, 260, 314 

twitch 189, 208 

TYPE 35, 40-42, 46, 147, 148, 182, 259, 308, 324, 325 

UNBURY 121, 136-138 
utility 215 
V-shifter 9 
VALUE 339,340 
vector 259, 280,281 
VECTOR. DIR 280, 281 
Vectors 278 

wave 259, 263-265 
WEDGE 141, 157-160 

WHERE 141,167, 168,293,294,299,300,328, 329 
Wiezenbaum, J. 301 
windows 4-10, 13, 15, 16, 18... 

WORD 141, 151, 152,158, 159, 161, 162, 165,166, 168, 170, 174, 260, 
290, 299, 322 

WORDP 141, 166, 168, 178, 321, 324, 325 

XCOR 189, 199,200, 273,314 
XPOLYGON 97 
XSQUARE 222 

YCOR 189, 199, 200, 273,314 
Zooming 197, 210 
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Optional Diskette 



For your convenience, the program listings contained in this book are 
available on an SF354 formatted floppy disk. You should order the diskette 
if you want to use the programs, but don't want to type them in from the 
listings in the book. 

All programs on the diskette have been fully tested. You can change the 
programs for your particular needs. The diskette is available for $14.95 plus 
$2.00 ($5.00 foreign) for postage and handling. 

When ordering, please give your name and shipping address. Enclose a 
check, money order or credit card information. Mail your order to: 

Abacus Software 
P.O. Box 7219 
Grand Rapids, MI 49510 


Or for fast service, call 1- 616 / 241-5510. 
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PRESENTING THE ST 
Gives you an in-depth look at 
this sensational new 
computer. Discusses the 
architecture of the ST. work¬ 
ing with GEM. the mouse, 
operating system, all the 
various interlaces, the 68000 
chip and its instructions. 
LOGO. 200pp $16.05 


ST Beginner’s Guide 
Written for the firsthand ST 
user. Get a basic understand¬ 
ing of your ST. Explore 
LOGO and BASIC from the 
ground up. Simple explan¬ 
ations of the hardware and 
internal workings of the ST. 
Illustrations, diagrams. Gloss¬ 
ary Index. 200pp $14.95 


ST TRICKS & TIPS 
Fantastic collection of pro¬ 
grams and info for the ST. 
Complete programs indude: 
super-fast RAM disk; time¬ 
saving printer spooler; color 
print hardcopy; plotter output 
hardcopy; creating access¬ 
ories. Money saving tricks 
and tips. 260pp $19.95 


ST INTERNALS 
Essential guide to the inside 
information of the ST. 
Detailed descriptions of 
sound and graphics chips, 
internal hardware. I/O ports, 
using GEM. Commented 
BIOS listing. An indispen- 
sible reference for your ST 
librery. 450pp $19.95 


GEM Programmer’s Ref. 
For serious programmers 
needing detailed information 
on GEM. Presented in an 
easy-to-understand format. 
All examples are in C and 
assembly language. Covers 
VDI and AES functions. No 
serious programer should be 
without. 410pp $19.95 


MACHINE LANGUAGE 
Program in the fastest lang¬ 
uage for your ATARI ST. 
Learn 68000 assembly lang¬ 
uage, its numbering system, 
use of registers, structure & 
important details of instruc¬ 
tion set, and use of internal 
system routines. Geared for 
the ST. 280pp $19.95 



3D GRAPHICS 
FANTASTIC! Rotate, zoom, 
and shade 3D objects. All 
programs written in machine 
language for high speed. 
Learn the mathematics 
behind 3D graphics. Hidden 
line removal, shading. With 
3D pattern maker and 
animator. $24.95 


ST GRAPHICS & SOUND 
Detailed guide to graphics 
and sound on the ST. 2D & 
3D function plotters, Moirt 
patterns, graphic memory 
and various resolutions, 
fractals, recursion, waveform 
generation. Examples written 
in C. LOGO. BASIC and 
Moduia2. 250pp $19.95 


ST LOGO GUIDE 
Take control of your ST by 
learning ST LOGO—the easy 
to use. powerful language. 
Topics Indude: file handling, 
recursion-Hilbert & Sierpinski 
curves. 2D and 3D function 
plots, data structure, error 
handling. Helpful guide for 
ST LOGO users. $19.95 


ST PEEKS & POKES 
Enhance your programs with 
the examples found within 
this book. Explores using 
different languages BASIC. 
C. LOGO and machine 
language, using various 
interfaces, memory usage, 
reading and saving from and 
to disk. more. 280pp $16.95 


BASIC Training Guide 
Thorough guide for learning 
ST BASIC programming. 
Detailed programming funda¬ 
mentals, commands descrip¬ 
tions, ST graphics & sound, 
using GEM in BASIC, file 
management, disk operation. 
Tutorial problems give hands 
on experience. 300pp $16.95 


BASIC to C 
Move up from BASIC to C. If 
you're already a BASIC 
programmer, you can learn C 
all that much faster. Parallel 
examples demostrate the 
programming techniques and 
constructs in both languages. 
Variables, pointers, arrays, 
data structure. 250pp $19 95 
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New ST software from a name you can count on... 



PCBoard Designer 

Interactive, computer-aided design 
package that automates layout of 
printed circuit boards. Auto-routing 
with 45* or 90* traces; two-sided 
boards; pin-to-pin, pin-to-BUS or BUS- 
to-BUS. Rubberbanding of components 
during placement. Prints board layout, 
pinout, component list, net list. Output 
to Epson printer at 2:1. Pays for itself 
after first designed board. $395.00 



Word processor for the ST 


ST TextPro 

Wordprocessor with professional 
features and easy-to-use! Full-screen 
editing with mouse or keyboard 
shortcuts. High speed input, scrolling 
and editing; sideways printing; 
multi-column output; flexible printer 
installation; automatic index and table 
of contents; up to 180 chars/line; 30 
definable function keys; metafile 
output; much more. $49.95 



A simple-to-use and versatile database 
manager. Features help screens; 
lightning-fast operation; tailorable 
display using multiple fonts; 
user-definable edit masks; capacity up 
to 64,000 records. Supports multiple 
files. RAM-disk support for 1040ST. 
Complete search, sort and file 
subsetting. Interfaces to TextPro. Easy 
printer control. $49.95 



Powerful, multi-tasking Forth for 
the ST. A complete, 32-bit imple¬ 
mentation based on Forth-83 
standard. Development aids: full 
screen editor, monitor, macro 
assembler. 1500+ word library. 
TOS/LINEA commands. Floating 
point and complex arithmetic. 
Available Sept. '86. $49.95 


ST PalntPro 

A GEM™ among ST drawing 
programs. Very friendly, but very 
powerful. A must for everyone’s 
artistic or graphics needs. Use 
up to three windows. Free-form 
sketching; lines, circles, ellipses, 
boxes, text, fill, copy, move, 
zoom, spray, paint, erase, undo, 
help. $49.95 


PaintPro 


P aintPro^ ^ 
PaintPro ^ 



wm 


For creative illustrations on the S‘ 


Multiple 

windows 



Combine graphics 
with your text 



ST Text Designer 
An ideal package for page layout 
on the ST. Accepts prepared text 
files from TextPro or other ASCII 
wordprocessors. Performs block 
operations— copy, move, col¬ 
umns. Merges bit-mapped 
graphics. Tools to add borders & 
separator lines, more. Available 
September '86. $49.95 


AssemPro 

The complete 68000 
assembler development 
package for the ST 



ST AssemPro 

Professional developer's pack¬ 
age includes editor, two-pass 
interactive assembler with error 
locator, online help including 
instruction address mode and 
GEM parameter information, 
monitor-debugger, disassembler 
and 68020 simulator, more. 
Available Sept. ’86. $59.95 
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ST LOGO is a versatile programming language, designed to take full 
advantage of the Atari ST's fantastic graphics capabilities. ST LOGO'S 
English-like words are extraordinarily easy to learn—yet you actually 
build your LOGO programs along the lines of artificial intelligence. This 
comprehensive book introduces you to the fundamentals of ST LOGO 
with numerous examples, illustrations and exercises that optimize the 
ST's features. Then you'll work with the more advanced features LOGO 
has to offer—you'll soon find youself programming highly complex tasks 
on your ST. Some of the topics covered in the LOGO User's Guide are: 


GEM—windows & mice 
Randomizing and repetition 
Programming with recursion 
LOGO words and lists 
Data structures in LOGO 
Error output 


• Computing with LOGO 

• Perimeters with procedures 

• ST LOGO system commands 

• Input and output commands 

• Programs as lists 

• Attribute lists 


Dr. Gerhard Sauer is a physicist and high school teacher who has been 
programming since 1965. The combination of his teaching experience 
and his knowledge of natural sciences make him well-qualified to write 
this book on the LOGO language. 
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